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I. INTRODUCTION 




I. INTRODUCTION 


This collection of notes, flow charts and annotated coding has been 
gathered together to form a documentation of UNICODE, the automatic program¬ 
ming system for Univac Scientific computers 1103A and 1105. The material 
supplements that contained in the UNICODE Manual (U-1451, Rev. 3). It is 
not needed to operate the UNICODE System but it would be useful to anyone 
desiring to modify the System. 

Following the flow charts and annotated coding of UNICODE Service Rou¬ 
tines which are given in the General section, the coding of the Librarian 
is given in Use Compiler form. The use of the Librarian to build up an 
Installation Library is explained in Chapter 11 of the UNICODE Manual. More 
complete coverage is given here to the Permanent Library Routines described 
in the same chapter. 

The notes on the System Tape Package explain the use of this bioctal 
tape in updating or changing the UNICODE Master Tape. Flow charts and an¬ 
notated coding of Routines 1-5 are also presented. 

UNICODE coding samples given in Section II are a matrix inversion program, 
a system of converting floating-point numbers to fixed-point, and a linear 
programming application. 

Use of UNICODE with card input is also discussed in the General section. 
Flow charts and coding are given for a routine which will convert a card-to- 
tape converted tape to a UNICODE input tape. The latter routine may readily 
be added to the UNICODE System. 

A page of corrections to the UNICODE Manual is included in a miscellaneous 
statistical section. How the compiler can be altered to produce two- and 
three-core Object Programs is also explained at the end of the General section. 

The remainder of this manual contains notes and flow charts, when avail¬ 
able, and the annotated coding of the routines used for compilation from 
the beginning processes of correction and translation to the final listing, 
by sentence, of the Object Program produced. 
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H. GENERAL 

1. UNICODE SERVICE ROUTINES 




A. Flex to Excess-Three Routine 


Flow Charts for Flex to Excess-Three Routine 











Flow Charts for Flex to Excess-Three Routine (Cont.) 


[Shift Up (47) 
u>r Down (57)?, 


Carriage\No 
Return )—5 
^ (45)?7 


Yes 


Tab (51) 
v ? 


_yCharacter\_^/Stop (43)\^,^ Print "Alarm" 
'V ? J \ ? J and Line No. 


Select Upper or Lower 
Case List for Sub¬ 
sequent Character 
Translations 



Translate 
Character 
t 


Store Word 
into Next 
Word of 
Block Image 


Store in 

Digit 

HoDDer 


Digit Hopper 
Full? J 


Assemble the Six 
Excess-3 Digits in 
the Hopper into one 
Word 




Load Digit 
Hopper with 
all Asymbols 


End of Block 
Image? 


Write One 
Block onto 
Tape 


Load Block 
Image with 
all A symbols 








Flow Charts for Flex to Excess-Three Routine (Cont.) 




the Block 
Image Empty 
? 





Write a 
Block onto 
Tape 


b© 











Flex to Excess-Three Routine 
Regions 


RE BS76300 
RE FC76303 
RE INI 
RE RD42 
RE CD56 
RE ER102 
RE CS132 
RE WD141 
RE WB156 
RE LC165 
RE UC172 
RE CR177 
RE EX206 
RE MS223 
RE FA255 
RE EA301 
RE FB325 
RE EB400 
RE WS453 
RE SD464 
RE BI472 
RE SF662 
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Flex to Excess-Three Routine (1105 Version) 



IA 

BS 



0 

TP 

FC14 

0 1 


1 

RP 

30454 

IN \ 

Bootstrap routine to core 

2 

TP 

FC 

IN 



CA 

BS3 

J 




IA 

FC 



0 

1 

LT 

TP 

0 

A 

WS2 1 
WS3 J 

[* Store A 

2 

TP 

0 

WS4 

Store Q 

3 

SP 

WS3 

0 

(A r )- >A 

4 

ZJ 

1N5 

IN6 

If = 0—*-alarm 

5 

TJ 

EA6* 

IN15 

If not too large—>IN15 

6 

PR 

0 

FB32 

»»ptt 

7 

SP 

WS2 

44 1 

1 

10 

SA 

WS3 

0 

> Restore A 6 Q 

11 

TP 

WS4 

0 J 

1 

12 

MS 

0 

1N13 

Stop 

13 

MJ 

0 

IN 

Recycle 

14 

MJ 

0 

IN 

Not used 

15 

SP 

A 

14 

Position Uniservo No. in A 

16 

TP 

MS 5 

Q 

Mask—»Q 

17 

20 

QS 

OS 

A 

A 

MS 3 1 

MS4 J 

^ Uniservo No.—>ef words for writing 

and rewinding 

21 

LQ 

MS6 

Q3 

TCU mask—>Q 

22 

SP 

WS4 

3t> 

TCU No.-»A 

23 

24 

25 

TJ 

TJ 

MJ 

MS7 

0 

0 

IN6 1 
IN26 
IN6 J 

1 If illegal—*IN6 

1 If OK — *IN26 

26 

27 

os 

QS 

A 

A 

MS3 1 
MS4 J 

" TCU No.—»ef word for writing, and re' 

30 

TP 

MS6 

0 

Buffer No. mask—>Q winding 

31 

SP 

WS4 

33 

Buffer No. - *-k 

32 

QS 

A 

MS2 

Buffer No. ef word to "write buffer" 

33 

SP 

WS4 

32 

Buffer No. - *-A to mod MJ4 command 

34 

OS 

A 

WB 

Modify MJ4 command 

35 

RP 

10006 

1N37 ' 

1 Load the digit hopper with 

36 

TP 

EA23 

SD , 

J all (0 0 1) *s 

37 

RP 

10170 

RD 1 

1 Load the block image with 

40 

TP 

MSlO 

BI J 

1 all A *s 

0 

EF 

0 

MS 

Start reader 

1 

ER 

0 

A 

Frame— > A 

2 

RJ 

RD2 

RD1 

Discard 1st frame 

3 

4 

EJ 

EJ 

EA10 
MS 13 

RD1 1 
RD1 J 

^ Ignores (00 & 77) 

5 

TP 

A 

SF 

Store frame in image 

6 

EJ 

EA 

RD11 

If stop, — ► RDll 

7 

RA 

RD5 

EA23 

Advance storage address of frame 
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If not next to last, recycle 

Stop reader 

Last frame —>7777 

Start of image —>RD5 

Starting address—>CD12 

Advance by one 

Test & —>CDl2 

Last frame—>A 

Ignores 

Stop 

Store in 1st location 
Advance address 
Return for another block 
Frame—> A 

If shift down->LC 

If shift up->UC 

To ER if not a shift on 1st frame 
Clear the v address of CD14 
If carriage return—>CR 
If tab—>WD 

If a digit, character, or symbol, 

—»CS1 

If a stop,->EX; if illegal-;-> ER 

"lc" 


"Error sp" 


Last 3 decimal digits of line 
No.—>storage (line No. = 1 + No. 
of cr executed so far) 


Print last three decimal digits 
of line No. 


Stop 

If MJ3 is on—>exit 
If not, ignore the error 
Dummy 

j, n-r—>(A r ) u 
S ubtract j,n, leaving -r 
Add to dummy instr. & store 
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WD 


WB 


LC 


UC 


CR 


EX 


4 

0 

0 

0 

5 

RA 

CS 

EA23 

6 

IJ 

WS1 

CD1 

0 

SP 

SD 

6 ^ 

1 

RP 

20004 

WD3 1 

2 

SA 

SD1 

6 1 

3 

SA 

SD5 

0 ) 

4 

TP 

A 

BI 

5 

RP 

10006 

WD7 \ 

6 

TP 

EA23 

SD ) 

7 

TV 

WD6 

CS 

10 

TP 

FB22 

WS1 

11 

RA 

WD4 

EA23 

12 

RJ 

WD12 

WD13 

13 

TJ 

MS 15 

CD1 

14 

TV 

WB6 

WD4 

0 

MJ 

40000 

WB 

1 

EF 

0 

MS2 

2 

RP 

10170 

WB4 \ 

3 

EW 

10000 

BI J 

4 

EF 

0 

MS3 

5 

RP 

10170 

CD1 \ 

6 

TP 

MS 10 

BI J 

0 

TU 

MS21 

CD21n 

1 

TU 

MS22 

CD22 l 

2 

TU 

MS23 

CS f 

3 

TU 

MS24 

CS2 ) 

4 

MJ 

0 

CD16 

0 

TU 

MS25 

CD21^ 

1 

TU 

MS26 

CD22 l 

2 

TU 

MS27 

CS f 

3 

TU 

MS30 

CS2 ) 

4 

MJ 

0 

CD16 

0 

RA 

ws 

EA23 

1 

RJ 

WD12 

WD 

2 

TP 

MS 16 

A 

3 

AT 

FB35 

A \ 

4 

TJ 

WD4 

CR3 ) 

5 

TP 

A 

WD4 

6 

MJ 

0 

WD13 

0 

SP 

WS1 

0 

1 

EJ 

FB22 

EX3 

2 

RJ 

WD12 

WD 

3 

SP 

WD4 

0 

4 

EJ 

MS 16 

EX6 

5 

RJ 

WB5 

WB 

6 

MJ 

10000 

EXlO^l 

7 

MJ 

0 

EX11 K 

10 

EF 

0 

MS 4 J 


Execute the storage of excess-three 
symbol 

Advance storage address 
Recycle until digit hopper is full; 
when full—>WD 

Form word in Ar 


Store in block image 
A—^digit hopper 

Start at top of digit hopper (in CS) 
Reset index counter 
Advance block image add 
On shut 

If not at end of block, recycle 
Restore v of WD4 to start a new block 
WRITING A BLOCK 
Test buffer activity 
ef for ’'write buffer" 

Load buffer from image 

ef for "write one block" 

Load image with allA's and exit to CD1 


Arrange to take lower case lists 
(FB and EB) 


Arrange to select upper case lists 
(FA and EA) 


Advance counter 

Store one word and advance storage 
Initial word—•■A TP A BI 

Add No. of words in a line until 
word 4 is no longer > 

Store in WD4 

Check for end of block 

Index for hopper 

If empty—>EX3 

If not, dump into block image 

Command to store next word into BI 

If block image is empty—>EX6 

If not, dump the block 

If MJ1 is on, rewind without 
interlock 
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MS 


FA 


EA 


11 

TP 

WS4 

Q I 


12 

SP 

WS2 

44 > 

Restore Q and A 

13 

SA 

WS3 

o i 


14 

MS 

0 

BS 

Stop on entry 

0 

10 

2 

0 

(EF) Start reader 

1 

10 

1 

0 

(EF) Stop reader 

2 

0 

0 

400 

(EF) Write buffer 

3 

0 

646 

0 

(EF) Write one block 

4 

0 

200 

0 

(EF) Rewind w/o inter 

5 

0 

1 

70000 

Uniservo No. mask 

6 

0 

30000 

0 

TCU and Buffer mask 

7 

1 

0 

0 

Min TCU No. (for tj) 

10 

1 

1010 

10101 

All A 

11 

0 

1 

0 

u advance 

12 

PR 

0 

FA1 

Print 0 (start of 10 

13 

0 

0 

77 

Ignore 

14 

TP 

A 

7777 

For tj 

15 

TP 

A 

BI170 

For tj 

16 

TP 

A 

BI 

For the CR routine & 

17 

20 

12120 

31204 

"error A " 

20 

0 

BI167 

0 

sf (-1) = BI167 

21 

0 

20053 

0 1 


22 

0 

FB 

0 l 

For LC routine 

23 

0 

EB53 

0 f 


24 

0 

MS21 

0 J 


25 

0 

2 0024 

0 "I 


26 

0 

FA 

0 l 

For UC routine 

27 

0 

EA24 

0 [ 


30 

0 

MS25 

0 J 


31 

0 

WS6 

WS10 

For ER routine 

0 

0 

0 

4 

space UPPER 

1 

0 

0 

37 

0 

2 

0 

0 

52 

1 

3 

0 

0 

74 

2 

4 

0 

0 

70 

3 

5 

0 

0 

64 

4 

6 

0 

0 

62 

5 

7 

0 

0 

66 

6 

10 

0 

0 

72 

7 

11 

0 

0 

60 

8 

12 

0 

0 

33 

9 

13 

0 

0 

56 

- 

14 

0 

0 

44 

• 

15 

0 

0 

22 

D (') 

16 

0 

0 

54 

/ 

17 

0 

0 

27 

X (*) 

20 

0 

0 

13 

G ( > ) 

21 

0 

0 

11 

L ( < ) 

22 

0 

0 

46 

( 

23 

0 

0 

42 

) 

0 

0 

0 

43 

) 

1 

0 

0 

17 

( 
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\ Superscripts 


FB 


2 

0 

0 

37 

3 

0 

0 

16 

4 

0 

0 

56 

5 

0 

0 

64 

6 

0 

0 

15 

7 

0 

0 

62 

10 

0 

0 

0 

11 

0 

0 

57 

12 

0 

0 

36 

13 

0 

0 

75 

14 

0 

0 

55 

15 

0 

0 

35 

16 

0 

0 

41 

17 

0 

0 

20 

20 

0 

0 

40 

21 

0 

0 

61 

22 

0 

0 

60 

23 

0 

0 

01 

0 

0 

0 

04 

1 

0 

0 

37 

2 

0 

0 

52 

3 

0 

0 

74 

4 

0 

0 

70 

5 

0 

0 

64 

6 

0 

0 

62 

7 

0 

0 

66 

10 

0 

0 

72 

11 

0 

0 

60 

12 

0 

0 

33 

13 

0 

0 

30 

14 

0 

0 

23 

15 

0 

0 

16 

16 

0 

0 

22 

17 

0 

0 

20 

20 

0 

0 

26 

21 

0 

0 

13 

22 

0 

0 

05 

23 

0 

0 

14 

24 

0 

0 

32 

25 

0 

0 

36 

26 

0 

0 

11 

27 

0 

0 

07 

30 

0 

0 

06 

31 

0 

0 

03 

32 

0 

0 

15 

33 

0 

0 

35 

34 

0 

0 

12 

35 

0 

0 

24 

36 

0 

0 

01 

37 

0 

0 

34 

40 

0 

0 

17 

41 

0 

0 

31 


< 

> 

* 



9 
8 
7 
6 
5 
4 
3 
2 
1 

0 J 

A 

A Lower case list 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


'•N 


v Regular 


J 


a 

b 


c 

d 

e 

f 

g 

h 

i 

j 

k 

1 

m 

n 

o 


P 

q 

r 

s 

t 

u 

v 

w 


15 



42 

0 

0 

27 

X 


43 

0 

0 

25 

y 


44 

0 

0 

21 

z 


45 

0 

0 

56 

- 

(lc) 

46 

0 

0 

44 

= 


47 

0 

0 

54 

•f 


50 

0 

0 

46 

f 


51 

0 

0 

42 


(lc) 

52 

0 

0 

50 

i 

(abs mag) 

0 

0 

0 

42 

i 


1 

0 

0 

22 



2 

0 

0 

21 

* 


3 

0 

0 

63 

+ 


4 

0 

0 

76 

= 


5 

0 

0 

02 



6 

0 

0 

74 

z 


7 

0 

0 

73 

y 


10 

0 

0 

72 

X 


11 

0 

0 

71 

w 


12 

0 

0 

70 

V 


13 

0 

0 

67 

u 


14 

0 

0 

66 

t 


15 

0 

0 

65 

s 


16 

0 

0 

54 

r 


17 

0 

0 

53 

q 


20 

0 

0 

52 

p 


21 

0 

0 

51 

0 


22 

0 

0 

50 

n 


23 

0 

0 

47 

m 


24 

0 

0 

46 

1 


25 

0 

0 

45 

k 


26 

0 

0 

44 

j 


27 

0 

0 

34 

i 


30 

0 

0 

33 

h 


31 

0 

0 

32 

g 


32 

0 

0 

31 

f 


33 

0 

0 

30 

e 


34 

0 

0 

27 

d 


35 

0 

0 

26 

c 


36 

0 

0 

25 

b 


37 

0 

0 

24 

a 


40 

0 

0 

14 

9 


41 

0 

0 

13 

8 


42 

0 

0 

12 

7 


43 

0 

0 

11 

6 


44 

0 

0 

10 

5 


45 

0 

0 

07 

4 


46 

0 

0 

06 

3 


47 

0 

0 

05 

2 


50 

0 

0 

04 

1 


51 

0 

0 

03 

0 


52 

0 

0 

01 

A 


0 

0 

0 

1 

Line 

counter 

1 

0 

0 

5 

IJ counter for symbols/wd 


CA 

FC454 
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Changes in Flex to Excess-Three Routine 
To Produce the 1103A Version 



IA 

FC33 

IN33 

MJ 

0 IN35 


CA 

FC34 



IA 

FC155 


WB 0 

EF 

0 

MS3 

1 

RP 

10170 

WB5 

2 

EW 

10000 

BI 

3 

0 

0 

0 

4 

0 

0 

0 

5 

RP 

10170 

CDl 

6 

TP 

MS 10 

BI 


CA 

FC164 



} 

} 

} 


Bypasses setting of MJ4 


Write one block 
I70g external writes 

Unused area 

Load image with all A *s 
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B. Compilation Service Routines 


This group of routines is used to start compilation and to act as a go- 
between for the different phases of Unicode. To begin a new compilation, set 
PAK = 77000 and start. In order to continue compilation from allocation on, 
set PAK = 77004 and start. 

The various phases of Unicode exit to 77010 to read in the next phase 
and continue compilation. 

Among the routines is a read routine and a print routine. The read 
routine reads one block of tape number 1. The parameter is sent to BB2 and an 
RJ BB BB1 is executed. The parameter has the form: 

Op u v 

0 N (address) 

where N (< I70g) is the number of words to store and the address is the lo¬ 
cation of the first word. Words are stored in ascending order. This routine 
will reread a block six times in case of parity or sprocket errors and give 
an error print-out if all six attempts to read fail. 

The print routine prints stored flex codes according to the parameter in 
PC2. The parameter has the form: 

Op u v 

0 (address) N 

where N is the number of words of codes to print and the address is the lo- 


cation of the first word 

. Successive words are picked up in ascending 

order. 

With a start 

at either 77000 or 

77004 the 

first block of tape 1 is 

read 

and the sentinel 

(in words 3 

to 6) 

is checked. 

The first six words on 

the 

system tape are as follows: 







Op 

u 

V 



read into 

7230 

MJ 

0 

7236 

for 77000 start 



7231 

MJ 

0 

7243 

for 77004 start 



7232 

67 

50342 

65127 

U N I C 0 D 



7233 

30 

77657 

36566 

E 77 S Y S T 



7234 

30 

47776 

62452 

E M 77 T A P 



7235 

30 

77777 

77777 

E 77 77 77 77 77 
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If words 3 to 6 are not as above, tape 1 is rewound and the following print-out 
occurs on the typewriter: 


MOUNT UNICODE SYSTEM TAPE ON 
SERVO 1. START. 

and the machine stops with PAK = 77000. 

If the sentinel is correct the service routine jumps to 

7230 in case of a 77000 start. 

7231 in case of a 77004 start. 

A jump to 77010 merely reads one block of Uniservo 1 into 7230-7417 and 
jumps to 7230. 

In the sentinel checking region the read and the print routines are boot¬ 
strapped from drum to core before operating. The read and print routines are 
used by the coding in the first two blocks of the system tape and the two 
blocks of the Set-up Translation phase. The tape handler (TH) and the print 
text (UP) routines are not in the core at these times. 
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/ PC\ 
Start 


Set Up 
Address 


Set Index 


Read Subroutine (BB) 



Print Subroutine (PC) 



No 


Last Word 
Printed? 


Yes 


Exit 
^PC , 






Regional Assignments for Compilation Service Routine 
(Both 1103A and 1105) 


Drum 


Core 


ZA77000 

CA77014 

ZB77054-► YC7070 

BD77102 -► BB7116 

PD77173-► PC7207 

ZZ72 30 


Unicode Compilation Service Routines (1105) 


1st entrance 


Entrance after 
stop 


Merge & 
others 



IA 

ZA 



0 

TP 

ZA3 

0 

Set up zero 

1 

RJ 

ZA12 

ZA12 

Subs & 1st driver—>core 

2 

RJ 

YC 

YC1 

—*lst driver 

3 

MJ 

0 

zz 

—►lst entrance of buffer 

4 

TP 

ZA3 

0 

Set up zero 

5 

RJ 

ZA12 

ZA12 

Subs & 1st driver—>core 

6 

RJ 

YC 

YC1 

—»lst driver 

7 

MJ 

0 

ZZ1 

— >2n6 entrance of buffer 

10 

RJ 

ZA12 

ZA12 

Subs—»eore 

11 

MJ 

0 

YC23 

2nd driver—♦ core—»2nd driver 

12 

13 

RP 

TP 

30140 

ZB 

(30000)) 
YC J 

• Drivers & subs—►core 


CA 

ZA14 
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Constants (1105) 



IA 

CA 








0 

0 

170 

ZZ 







1 

67 

50342 

65127 

U 

N 

I 

C 

0 

D 

2 

30 

77657 

36566 

E 

77 

S 

Y 

S 

T 

3 

30 

47776 

62452 

E 

M 

77 

T 

A 

P 

4 

30 

77777 

77777 

E 

77 

77 

77 

77 

77 

5 

0 

0 

77777 

V 

mask 




6 

0 

0 

1 







7 

0 

1 

0 







10 

0 

CA15 

12 \ 

Print 

. parameter 

11 

0 

CA27 

11/ 







12 

0 

77777 

0 

u 

mask 




13 

2 

200 

10000 

Rewind #1 TCU2 


14 

1 

200 

10000 

Rewind #1 TCUl 

15 

47 

12203 

02204 

T 

R 

E 

A 

D 

A 

16 

20 

12120 

31204 

E 

R 

R 

0 

R 

A 

17 

46 

15301 

21401 

( 

P 

A 

R 

I 

T 

20 

25 

04031 

20424 

Y 

A 

0 

R 

A 

S 

21 

15 

12031 

63620 

P 

R 

0 

C 

K 

E 

22 

01 

42 574 

24704 

T 

) 


• 

t 

A 

23 

04 

24013 

01201 

A 

S 

T 

A 

R 

T 

24 

04 

26031 

20412 

A 

F 

0 

R 

A 

R 

25 

20 

12203 

02224 

E 

R 

E 

A 

D 

S 

26 

57 

42040 

40404 

1 

, 

A 

A 

A 

A 

27 

47 

07033 

40601 

t 

M 

0 

U 

N 

T 

30 

04 

34061 

41603 

A 

U 

N 

I 

C 

0 

31 

22 

20042 

42524 

D 

E 

A 

s 

Y 

S 

32 

01 

20070 

40130 

T 

E 

M 

A 

T 

A 

33 

15 

20040 

30604 

P 

E 

A 

0 

N 

A 

34 

24 

20121 

70304 

S 

E 

R 

V 

0 

A 

35 

57 

52420 

40447 


1 

# 

A 

A 

t 

36 

24 

01301 

20157 

S 

T 

A 

R 

T 


37 

42 

04040 

40404 


A 

A 

A 

A 

A 


CA CA40 


23 



1st & 2nd Drivers (1105) 


YC 



IA 

ZB 


0 

MJ 

0 

(30000) 

1 

TP 

CA 

BB2 \ 

2 

RJ 

BB 

BB1 J 

3 

RP 

30004 

YC5 ^ 

4 

CC 

Z02 

CA1 

5 

SP 

ZZ2 

0 r 

6 

RP 

20003 

YC10 

7 

SA 

ZZ3 

0 J 

10 

ZJ 

YCll 

YC 

11 

MJ 

20000 

YC14 

12 

EF 

0 

CA14 

13 

MJ 

0 

YC15 

14 

EF 

0 

CA13 

15 

TP 

CAll 

PC2 \ 

16 

RJ 

PC 

PCI / 

17 

TV 

YC 

YC21) 

20 

RS 

YC21 

YC22 j 

21 

MS 

0 

(30000) 

22 

0 

0 

3 

23 

TP 

CA 

BB2 \ 

24 

RJ 

BB 

BB1 J 

25 

MJ 

0 

ZZ 


CA 

ZB26 



Exit 

Read 1st blk. 

Check Sentinel 

O.K.—>exits no 4 
TCU2—► YC14t TCU14 
Rewind #1 TCU1 

Rewind #1 TCU2 

MOUNT UNICODE ON TAPE #1 

Set address 

Stop while tape changed 
Constant 

2nd driver 

—► blk. 
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Read One Block of Tape *1 (1105) 


BB 


Parameter Format 



IA 

BD 


0 

MJ 

0 

(30000) 

1 

MJ 

0 

BB3 

2 

0 

(30000) 

(30000) 

3 

TP 

BB56 

0 

4 

MJ 

20000 

BB10 

5 

TP 

BB60 

BB52 

6 

RP 

10005 

BB13 \ 

7 

QS 

BB67 

BB45 J 

10 

TP 

BB57 

BB52 

11 

RP 

10005 

BB13\ 

12 

OS 

BB70 

BB45 J 

13 

EF 

0 

BB51 

14 

EF 

0 

BB52 

15 

TV 

BB2 

BB64 

16 

TP 

BB53 

Q 

17 

QS 

BB2 

BB63 

20 

QT 

BB2 

0 

21 

TP 

BB54 

A 

22 

ST 

0 

A 

23 

AT 

BB55 

BB65 

24 

RJ 

BB65 

BB62 

25 

ER 

0 

A 

26 

ZJ 

BB27 

BB43 

27 

EF 

0 

BB50 

30 

RJ 

BB65 

BB61 

31 

ER 

0 

A 

32 

ZJ 

BB33 

BB43 

33 

EF 

0 

BB47 

34 

RJ 

BB65 

BB61 

35 

ER 

0 

A 

36 

ZJ 

BB37 

BB43 

37 

EF 

0 

BB46 

40 

TP 

CA10 

PC2 \ 

41 

RJ 

PC 

pci ; 

42 

MS 

0 

BB24 

43 

EF 

0 

BB51 

44 

MJ 

0 

BB 

45 

2 

602 

10000 

46 

2 

14 

10001 

47 

2 

1 

70000 

50 

2 

1 

60000 

51 

2 

1 

50000 

52 

0 

20000 

04000 


Op u 

00 (No. words < 170g) 


Exit 

Start 

Par. =0 n address 
Mask— 

TCU1 | ; TCU2—>BB10 
Set bypass *1 
Set TCU1 

Set bypass #2 

Set TCU2 

Set normal bias 
Bypass #1 or *2 
Set address 
Mask—>0 
n of repeat 
n —>0 
1708—*A U 
1700 - 

170q - n—>RP inst. 
Read block 
IOA— >A 
Parity no—> 

Set high 
Reread 
IOA—►A 
Parity ^ 

Set low 
Reread 
IOA—>A 
Parity ^ ; no —> 

Move back one blk. 

Print PARITY ERROR 

Stop for reread 
Set normal 
Exit 

Read one block & stop 
Move bwd one blk. 

Low gain 
High gain 
Normal gain 
Set bypass 


v 

address 
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53 

0 

07777 

0 

54 

0 

170 

0 

55 

RP 

0 

(30000) 

56 

7 

0 

0 

57 

0 

20000 

04000 

60 

0 

10000 

04000 

61 

EF 

0 

BB46 

62 

EF 

0 

BB45 

63 

RP 

1(0000) 

BB65 

64 

ER 

10000 

(30000). 

65 

0 

0 

0 

66 

ER 

10000 

A 

67 

1 

0 

0 

70 

2 

0 

0 


CA 

BD71 



Mask 
120 10 
Set up RP 
Mask 

Bypass #2 
Bypass ®i 

Move bwd. one block > 
Read one blk & stop 

Read to core > 

RP 0 exit 1 throw 

J away > 


read sub. 
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Print (1105) 


PC 



IA 

PD 



0 

MJ 

0 

(30000) Exit 

1 

MJ 

0 

PC 16 

Start 

2 

0 

(30000) 

0 

Par. = 0 address n 

3 

TP 

PC2 

Q 1 

1 

4 

5 

QT 

ST 

CA5 

CA6 

A45 
PC20 J 

r Set index 

6 

TU 

PC2 

PC7 

Set address 

7 

SP 

(30000) 

52 


10 

PR 

0 

A I 

> Print one word 

11 

SS 

A 

6 


12 

ZJ 

PC 10 

PC13 


13 

RA 

PC7 

CA7 

Set for next word 

14 

IJ 

PC20 

PC7 

Finished^; no —>PC7 

15 

MJ 

0 

PC 

Exit 

16 

17 

RP 

PR 

4 

0 

PC3 

PC4 

| Four carriage returns 

20 

0 

0 

0 

Index 


CA 

PD21 
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Unicode Compilation Service Routines (1103A) 


IA ZA 


1st 


entrance 

0 

TP 

ZA3 

0 


1 

RJ 

ZA12 

ZA12 


2 

RJ 

YC 

YC1 


3 

MJ 

0 

ZZ 

Entrance 





after 

stop 

4 

TP 

ZA3 

0 


5 

RJ 

ZA12 

ZA12 


6 

RJ 

YC 

YC1 


7 

MJ 

0 

ZZ1 

Merge 

and 

others 

10 

RJ 

ZA12 

ZA12 


11 

MJ 

0 

YC20 


12 

RP 

30140 

(30000) 


13 

TP 

ZB 

YC 



CA 

ZA14 



Set up zero 

Subs and 1st driver —*■ core 
—> 1st driver 
—> 1st entrance of buffer 


Set up zero 

Subs and 1st driver—>core 
—> 1st driver 
—»2nd entrance of buffer 


Subs —»core 

2nd driver—»core—*2nd driver 
Driver & subs—*core 
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Constants (1103A) 



IA 

CA 


0 

0 

170 

ZZ 

1 

67 

50342 

65127 

2 

30 

77657 

36566 

3 

30 

47776 

62452 

4 

30 

77777 

77777 

5 

0 

0 

77777 

6 

0 

0 

1 

7 

0 

1 

0 

10 

0 

CA13 

10 Y 

11 

0 

CA23 

11 j 

12 

0 

77777 

0 

13 

47 

12203 

022 04 

14 

20 

12120 

31204 

15 

46 

15301 

21401 

16 

25 

42 574 

24704 

17 

04 

24013 

01201 

20 

04 

26031 

20412 

21 

20 

12203 

02224 

22 

57 

42040 

40404 

23 

47 

07033 

40601 

24 

04 

34061 

41603 

25 

22 

20042 

42524 

26 

01 

20070 

40130 

27 

15 

20040 

30604 

30 

24 

20121 

70304 

31 

57 

52420 

40447 

32 

24 

01301 

20157 

33 

42 

04040 

40404 

34 

2 

200 

10000 


CA 

CA35 



ZZ prob. = 7230 
U N I C 0 D 

E 77 S Y S T 

EM 77 T A P 

E 77 77 77 77 77 

V mask 


Print parameters 
u mask 

t R E A D A 

E R R 0 R A 

( P A R I T 

Y ) I . f A 

A S T A R T 

A F 0 R A R 

E R E A D S 

^ . A A A A 

♦ MOUNT 
A U N I C 0 

D E A S Y S 

T E M A T A 

P E A 0 N A 

S E R V 0 A 

I 1 . A A * 

S T A R T I 

. A A A A A J 

Rewind Uniservo 1 


FLEX 

CODES 
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1st and 2nd Drivers (1103A) 


YC 



IA 

ZB 


0 

MJ 

0 

(30000) 

1 

TP 

CA 

BB2 \ 

2 

RJ 

BB 

BB1 J 

3 

RP 

30004 

YC5 >, 

4 

CC 

ZZ2 

CAl 

5 

SP 

ZZ2 

° > 

6 

RP 

20003 

YC10 

7 

SA 

ZZ3 

0 > 

10 

ZJ 

YC11 

YC 

11 

EF 

0 

CA34 

12 

TP 

CAll 

PC2 \ 

13 

RJ 

PC 

PCI J 

14 

TV 

YC 

YC16 

15 

RS 

YC16 

YC17 

16 

MS 

0 

(30000) 

17 

0 

0 

3 

20 

TP 

CA 

BB2 \ 

21 

RJ 

BB 

BB1 J 

22 

MJ 

0 

ZZ 


CA 

ZB23 



Exit 

Read 1st blk 

Check Sentinel 

0. K. —» exit; no I 

Rewind tape »1 
UNICODE NOT ON TAPE #1 

Exit - 3 

Stop while tapes changed 
Constant 

2nd driver 

—*■ blk 
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Read One Block of Tape #1 (1103A) 

Parameter Format 
Op u 

00 (No. words < 

TP (par) BB2 
RJ BB BB1 


17O 0 ) 


BB 



IA 

BD 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

BB3 

Start 

2 

0 

30000 

30000 

Par. 

3 

MJ 

0 

BB4 

Set normal bias 

4 

TV 

BB2 

BB47 

Set address 

5 

TP 

BB41 

Q 

Mask —> 0 

6 

os 

BB2 

BB46 

n of RP 

7 

QT 

BB2 

0 

n —> Q 

10 

11 

TP 

ST 

BB42 

0 

5 } 

n0 8 - n > A u 

12 

AT 

BB43 

BB50 

I70g - n —»RP inst. 

Read block 

13 

R.J 

BB50 

BB45 

14 

ER 

0 

A 

IOA —> A 

15 

ZJ 

BB16 

BB32 

Parity | ; no —> BB32 

16 

EF 

0 

BB37 

High 

17 

RJ 

BB50 

BB44 

Reread 

20 

ER 

0 

A 

IOA —»A 

21 

ZJ 

BB22 

BB32 

Parity ^ ; no —> BB32 

22 

EF 

0 

BB36 

Low 

23 

RJ 

BB50 

BB44 

Reread 

24 

ER 

0 

A 

IOA —> A 

25 

ZJ 

BB26 

BB32 

Parity i 

26 

EF 

0 

BB35 

Move bwd one blk. 

27 

30 

TP 

RJ 

CA10 

PC 

PC2 \ 

PCI J 

Print parity error 

31 

MS 

0 

BB13 

Stop for reread 

32 

EF 

0 

BB40 

Set normal 

33 

MJ 

0 

BB 

Exit 

34 

2 

602 

10000 

Read one blk & stop 

35 

2 

14 

10001 

Move bwd. one blk. 

36 

2 

1 

70000 

Low 

37 

2 

1 

60000 

High 

40 

2 

1 

50000 

Normal 

41 

0 

07777 

0 

Mask 

42 

0 

170 

0 

120 10 

Move bwd one blk. 

43 

RP 

0 

(30000) 

44 

EF 

0 

BB35 

45 

EF 

0 

BB34 

Read one blk. & stop 

46 

47 

RP 

ER 

1(0000) 

10000 

BB50 \ 
(30000)/ 

Read to core r 

50 

0 

0 

0 

RP 0 exit 7 throw away 

51 

ER 

10000 

A 

J 


CA 

BD52 


J 


V 

address 


read 

sub. 
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Print (1103A) 



IA 

PD 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

r» 

vy 

Dn a. 

I v XU 

C+ « %.+ 

u tax u 

2 

0 

(30000) 

(0) 

Par. = 0 address n 

3 

TP 

PC2 

o 1 


4 

QT 

CA5 

A45 \ 

Set index 

5 

ST 

CA6 

PC20J 


6 

TU 

PC2 

PC7 
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7 

SP 

(30000) 
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10 

PR 

0 

A I 


11 

SS 

A 

6 1 

Print one word 

12 

ZJ 

PC 10 

PC13 


13 

RA 
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1 V | 

r A7 J 

1 

■Paw Mrtir+ til a W/l 

v x ux iiv/Ai nuxu 

14 

IJ 

PC20 

PC7 
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15 

MJ 

0 

PC 

Exit 

16 

RP 

4 
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17 

PR 

0 
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20 

0 

0 

0 

Index 


CA 
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C. Object Program Service Routines 

1. Flex Code Print-out 

Stored at: 77250-77272 

Operates at: 750-771 

This routine does not preserve all of HSS. 

Function 

To print out on-line stored Flex codes. 

Calling Sequence 

a TP L (Parameter) PR3 

+1 RJ PR2 PR 

+2 Control returned here 

Notes : 

No editing is done - therefore all carriage return codes, 
etc., should be provided. 

Parameter is of form 0 - u - v, where u = initial 
address of stored codes (6 per word) 
v = number of words to be printed. 

This routine is used by the Object Program Loader, Sections 1 
and 2 of Initialization, and by some of the generated routines of 
the Object Program. 
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Regions for Flex Print Routine 


RP 


RE PR77250 
RE RP750 


Storage address 
Operating area 


Flex Print-Out (N.B. - Stored at PR; Operates at RP) 
(Core Requirement = 22 Locations) 



IA 

PR 



RP 

30021 

RP2 \ 


TP 

PR2 

RP S 

0 

MJ 

0 

(30000) 

1 

0 

30000 

(30000) 

2 

TV 

RP1 

RP20 

3 

TU 

RPl 

RP6 

4 

1J 

RP20 

RP6 

5 

MJ 

0 

RP 

6 

TP 

(30000) 

0 

7 

LQ 

Q 

6 

10 

PR 

0 

0 

11 

QT 

RP17 

RP21 

12 

RS 

Q 

RP21 

13 

ZJ 

RP7 

RP14 

14 

RA 

RP6 

RP16 

15 

MJ 

0 

RP4 

16 

0 

1 

0 

17 

0 

0 

77 

20 

0 

0 

0 


CA 

PR23 



Send down to core 
Exit 

Parameter 
Set up index 


V Operating routine 
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2. Object Program Loaders 


These routines, one for the 1103A and one for the 1105, perform the 
initial loading of data from magnetic tape on Uniservo 1 to High Speed Storage, 
and on recognition of a transfer block, transfer control to an address indicated 
on the tape. 

The tape format on which these routines depend for proper loading of the 
Object Program is prepared by the Initialization Generation Phase according 
to the requirements of the problem. 

The first word of each block has special significance. It either contains 
the loading address and word count of the block or a transfer address. 

In the former case, the u portion holds the word count (at most I67g) and 
v holds the initial loading address, from which as many words as are specified 
by the word count are stored sequentially as read from tape. If the word count 
is less than I67g, but not zero, the remainder of the block is disregarded. 

The transfer word is recognized as the first word of a block because its u 
field is zero (or a zero word count). In this case the remainder of the block 
is read but disregarded, and control is transferred to the location specified 
by the contents of the v field. 

For further description of the loading of Object Programs, refer to the 
Initialization Generation write-up and its related diagram showing the layout 
of the Object Program.tape. 
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Index = 0?^lif» 


I No 


<D 


Print " READ 
ERROR (PARITY), 
START FOR RE¬ 
READS.” 




Move Back 
One Block 



1103A Service Routine - Object Program Loader Flow Chart 













Print Out: "MOUNT 
UNICODE OBJECT 
PROGRAM ON UNI¬ 
SERVO I." 


Printout: "READ 
ERROR (PARITY). 
START FOR REREADS. 



1103A Service Routine - Object Program Loader Flow Chart (Cont.) 










Regions for 1103A Object Program Loader 


RE DA77300 
RE PR77250 
RE LD1500 'l 
RE LE1564 J> 
RE LT1624 J 
RE SN114 


Object Program 



0 

IA 

RP 

DA 

30004 

0 


1 

TP 

DA4 

0 


2 

RP 

30124 

LD34 


3 

TP 

DA10 

LD 

0 

4 

MJ 

0 

2 

1 

5 

0 

0 

0 

2 

6 

RP 

17776 

DA2 \ 

3 

7 

TP 

1 

2 J 



CA 

DA10 



Storage address 
Flex print routine 

Operating area 

Address for loading Sentinel block 

Loader (1103A) 


Clear one bank of core 
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Move back one block 
Set to normal bias 
Set index 


© 

© 

<D 

© 

© 

© 

© 

© 

© 

© 

© 



IA 

DA10 


0 

EF 

0 

LEI 

1 

TP 

LE 

LT2 

2 

TP 

LE7 

LTl 

3 

MJ 

167 

LD4 

4 

EF 

0 

LE2 

5 

ER 

10000 

0 

6 

QT 

LE5 

LT 

7 

ZJ 

LD10 

LD16 

10 

TV 

Q 

LD13T 

11 

AT 

LE6 

LD12J 

12 

0 

30000 

30000 

13 

ER 

10000 

30000 

14 

RJ 

LD24 

LD17 

15 

MJ 

0 

LD1 

16 

TV 

0 

LD24 

17 

TU 

LD3 

LD21 

20 

RS 

LD21 

LT 

21 

RP 

0 

LD23 

22 

ER 

10000 

A 

23 

ER 

0 

A 

24 

ZJ 

LD25 

30000 

25 

IJ 

LTl 

LD31 

26 

TP 

LE10 

PR3 

27 

RJ 

PR2 

PR 

30 

MS 

0 

LD 

31 

RA 

LT2 

LE4 

32 

EF 

0 

LEI 

33 

MJ 

0 

LD3 

34 

TP 

LE 

LT2 

35 

TP 

LE7 

LTl 

36 

MJ 

0 

LD37 

37 

EF 

0 

LE3 

40 

EF 

0 

LE2 

41 

RP 

10170 

LD43 

42 

ER 
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SN 

43 

ER 

0 

A 

44 

ZJ 

LD45 

LD52 

45 

IJ 
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LD50 

46 

TP 

LE10 
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47 

MJ 

0 

LD55 

50 

RA 

LT2 

LE4 

51 

MJ 

0 

LD36 

52 

TP 

(SN24) 

A 

53 

EJ 
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LD60 

54 

TP 

LE 11 
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55 

RJ 

PR2 

PR 

56 

EF 

0 

LE3 

57 

MS 

0 

DA 

60 

RA 

LD52 

LE36 

61 

RA 

LD53 

LE36 

62 

IJ 

LE37 

LD52 

63 

MJ 

0 

LD1 


CA 

DA74 



} 

} 

} 

} 

} 


} 

} 

} 

} 

} 


Prepare to read one block 
Read one word 
Save word count 
= 0 ? 

Non-zero so set up Read and Repeat 

Read info to Loading Address 

Check parity and throw away 
Back to read next block 
Set transfer address 

Determine no. of throw away words 
Throw away 
Check parity 

Print READ ERROR 

Change bias 

Move back one block 

Set to normal bias 
Set index 

Rewind Uniservo 1 

Prepare to Read one block Uniservo 1 
Read 1st block, Sentinel + 3 blkts. 
of Tape Handler. 

Parity error? 

Print READ ERROR 

Change bias 
Try again 

Print MOUNT UNICODE OBJECT PROGRAM 
Rewind 

Increment test instructions 
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LE 



IA 
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0 

02 

1 
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1 
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14 
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2 

02 
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V JC. 

O AA 
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13 
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15 
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21 
22 

23 

24 

25 
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27 

30 
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32 

33 

34 

35 

36 
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0 

0 
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0 
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0 
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0 
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2 

0 
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10 

0 
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22 
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12 
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04 
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04 
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22 
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45 
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06 
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40614 

16 
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23 
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31230 
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20 
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30 

01512 
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26 

66015 
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32 
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0 

1 

0 

0 

0 

3 

CA 
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Normal bias 
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-J TT« A « ^ —1 
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Change bias 
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Parameter for READ Error 
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C 
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T 

R 

A 

A 


I 

0 

A 

A 

S 

* 
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Flex 
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~) 


0 B J E 
A P R 0 
A M . A 
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J 
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1105 Service Routine - Object Program Loader Flow Chart 
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UNICODE OBJECT 
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' To > 
Entry 
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1105 Service Routine - Object Program Loader Flow Chart (Cont.) 
















Regions for 1105 Object Program Loader 


RE 

DA77300 

Storage address 

RE 

PR77250 

Flex print routine 

RE 
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RE 

LE1575 J> 

Operating area 

RE 
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RE 
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MJ 

0 

2 


1 

5 

0 

0 

0 


2 

6 

RP 

17776 

DA2 4 


3 

7 

TP 

1 

o [ Clear 

one bank of core 
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2 

TP 

LE 
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Set normal bias for TCU1 
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0 
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Q 
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LT 
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13 
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14 
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Q 

LD17\ 
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15 

AT 
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LD16J 
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16 

0 
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17 

ER 
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20 

RJ 
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21 

MJ 

0 
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22 

TV 

0 
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23 

TU 
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^ Determine no. of throw away words 

24 

RS 
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25 
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RP 

ER 

0 
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LD27 1 
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^ Throw away 

27 

30 

ER 

ZJ 

0 

LD31 
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31 

IJ 

LT1 
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32 

TP 

LE16 
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1 Print READ ERROR 

33 
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34 

MS 

0 

LD 


35 

RA 
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Change bias 

36 

EF 

0 
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37 

MJ 

0 
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40 
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41 

42 

RP 
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LE 
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LT2 . 
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43 

44 
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45 
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46 
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0 

LT5 
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47 

EF 
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50 

EF 

0 
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51 

EF 

0 
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52 

RP 
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LD54 ' 
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53 

ER 
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SN 
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54 

ER 

0 

A 


55 

ZJ 

LD56 
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56 

IJ 

LTl 

LD61 


57 

TP 

LE16 

PR3 

| READ ERROR 

60 

MJ 

0 

LD66 

61 

RA 
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Try again 


62 MJ 0 LD47 
® 63 TP (SN24) A 

64 EJ (LE42) LD71 


65 

TP 

LE17 

PR3 'l 

Print MOUNT UNICODE OBJECT PROGRAM 

66 

RJ 

PR2 

PR / 


67 

EF 

0 

LT6 

Rewind 

70 

MS 

0 

DA 


71 

RA 

LD63 

LE46 \ 
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72 

RA 

LD64 

LE46 J 


73 

IJ 

LE47 

LD63 


74 

MJ 

0 

LD1 
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CA 
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IA 

LE 0 01 

1 01 
2 01 

3 0 

4 01 

5 02 

6 02 

7 02 
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14 RP 
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41 52 
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0 

3 
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Move Uniservo 1 back one block 
Read Uniservo 1 
Buffer 1 bypass 
Rewind Uniservo 1 
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2. LIBRARY ROUTINES 




2. Library Routines 


a. Unicode Librarian Symbolic Listing 







X 

1. 

9 

» 

SUB 
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,714 

.UNICODE LIBRARIAN 






X 

2. 
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t 
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45 
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X 

3. 
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9 
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00005 

37 
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X 
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V 
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9 
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X 

5. 

, EXIT 
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MJ 

9 
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« 
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X 

6. 
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f 


9 
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X 
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• 
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X 
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X 
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t 
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X 
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t 

LQ 
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51 
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X 

11. 

V 

t 

QT 
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.A 

« 

00014 

00014 

47 

00042 

00015 

X 

12. 

t 

f 

ZJ 

,S1 

,L+1 

t 

00015 

00015 

75 

11130 

00017 

X 

13. 

1 

« 

RPV 

,600 

,L+2 

,YES-LOAD BUFFER 

00016 
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11 

00421 

01316 

X 

14. 

t 

t 

TP 

,C2 

,BF 

t 

00017 
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11 

00422 

01342 

X 

15. 

9 

f 

TP 

,C3 

.BF+20 

t 

00020 
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11 

00423 

01343 

X 

16. 

t 

t 

TP 
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.BF+21 

t 
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11 

00424 
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X 

17. 

f 

t 

TP 
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» 
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11 

00425 

01507 

X 

18. 

1 

9 

TP 
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.BF+121 

t 
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32000 

X 

19. 

f 

9 

RS 
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.A 

« 

00024 

00024 

11 

00426 

01676 

X 

20. 

9 

9 

TP 

,C7 

.BF+240 

t 
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11 

00427 

01677 

X 

21. 

t 

9 

TP 

,C8 

.BF+241 

t 

00026 

00026 

23 

01700 
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X 

22. 

» 

9 

RS 
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•A 

• 

00027 

00027 

11 

00422 
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X 

23. 

t 

9 

TP 

,C3 
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» 

00030 

00030 

11 

00430 

02067 

X 

24. 

t 

9 

TP 
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11 

00431 

02256 

X 

25. 

f 

9 

TP 
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.BF+480 
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00032 

11 

00432 

02257 

X 

26. 

« 

9 

TP 
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.BF+481 

t 

00033 
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11 

00433 

31000 

X 

27. 

» 

9 

TP 

,C12 

fO 

.SET SERVO NUMBERS 

00034 

00034 

75 

10010 

00036 

X 

28. 

t 

9 

RPV 

,8 

,L+2 

t 

00035 

00035 

53 

00434 
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X 

29. 
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9 

QS 
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9 

00036 
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31 
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X 
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rO 
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X 
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48. 
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17 
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50. 
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17 
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17 
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11 
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53. 
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45 
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X 
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11 
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56. 

00071 

00071 

51 

00440 

00521 

X 

57. 

00072 

00072 

47 

00073 

00074 

X 

58. 

00073 

00073 

23 

01510 

00474 

X 

59. 

00074 

00074 

55 

00010 

31014 

X 

60. 

00075 

00075 

51 

00440 

00522 

X 

61. 

00076 

00076 

47 

00077 

00100 

X 

62. 

00077 

00077 

21 

01510 

00474 

X 

63. 

00100 

00100 

21 

00521 

00504 

X 

64. 

00101 

00101 

21 

00522 

00504 

X 

65. 

00102 

00102 

11 

01510 

00523 

X 

66. 

00103 

00103 

31 

00474 

00000 

X 

67. 


ALARM1 


S3 


00104 00104 37 00543 00533 X 68. 


, TP 

,C12 

,Q 

, RPV 

,4 

,L+2 

, QS 

,A 

.MTRDFW 

, LA 

,PAR1 

,A+12 

, RPV 

,4 

,L+2 

, OS 

,A 

,MTWRIT 

, SP 

,2V 

,0 

, RJ 

.MTRDEX 

,MTREAD 

, SP 

,BF+20 

» 

, EJ 

,C3 

,S3 

, TP 

,C15 

,Q 

, SP 

,5V 

,0 

, LQ 

»Q 

,6 

, PR 

« 

,Q 

, IJ 

,A 

,L-2 

, ef 

» 

.MTNOBI 

, EF 

1 

.NTTINRW 

, EF 

1 

.MTOURW 

, TP 

,C16 

,Q 

, MJ 

, 

.ALARM 

, TP 

.BF+122 

,T1 

, LQ 

,PAR1 

,Q+L2 

, QT 

,C17 

,T2 

, ZJ 

,L+1 

,L+2 

, RS 

, BF+122 

,2V 

, LQ 

,PAR2 

,Q+I2 

, QT 

,C17 

,T3 

, ZJ 

,L+1 

,L+2 

, RA 

, BF+122 

,2V 

, RA 

,T2 

,120V 

, RA 

,T3 

,120V 

, TP 

, BF+122 

,T4 

, SP 

,2V 

,0 

, RJ 

.MTWREX 

.MTWREl 


READ TAPE AND CATALOGUE 
(LABELS) 

ALARM IF NO TAPE LABEL 


STORE WORD COUNT 
REVISE WORD COUNT 


STORE REVISED WORD 
COUNT 

,WRITE TAPE AND $ 

CATALOGUE LABELS 
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00105 

00105 

31 

00520 

00000 

X 

69. 

f 

, SP 

,T1 

9 

.READ CATALOGUE 

00106 

00106 

73 

00504 

00520 

X 

70. 

♦ 

, DV 

,120V 

,T1 

9 

00107 

00107 

47 

00110 

00111 

X 

71. 

V 

, ZJ 

,L+1 

,L+2 

9 

00110 

00110 

21 

00520 

00473 

X 

72. 

t 

, RA 

,T1 

,1V 

9 

00111 

00111 

31 

00520 

00000 

X 

73. 

* S4 

, SP 

,T1 

9 

9 

00112 

00112 

75 

12000 

00114 

X 

74. 

i 

, RPV 

,1024 

,L+2 

9 

00113 

00113 

11 

00421 

01316 

X 

75. 

t 

, TP 

,C2 

,BF 

« 

00114 

00114 

37 

00565 

00555 

X 

76. 

t 

♦ RJ 

.MTRDEX 

.MTREAD 

9 

00115 

00115 

37 

00115 

00116 

X 

77. 

. S5 

, RJ 

,L 

,L+1 

9 

00116 

00116 

55 

00007 

31030 

X 

78. 

V 

, lq 

,PAR1 

,Q+24 

.GENERATE CATALOGUE 












ITEM 

00117 

00117 

51 

00502 

32000 

X 

79. 

t 

, QT 

,7V 

,A 

9 

00120 

00120 

47 

00121 

00132 

X 

80. 

t 

, ZJ 

,L+1 

,S6 

9 

00121 

00121 

35 

00443 

00525 

X 

81. 

t 

, AT 

,C2l 

,T6 

9 

00122 

00122 

11 

00011 

31000 

X 

82. 

t 

, TP 

,PAR3 

,Q 


00123 

00123 

11 

00477 

00524 

X 

83. 

9 

, TP 

,5V 

,T5 

9 

00124 

00124 

55 

31000 

00006 

X 

84. 

1 

, LQ 

.Q 

,6 

9 

00125 

00125 

51 

00420 

32000 

X 

85. 

9 

, QT 

,C1 

»A 

9 

00126 

00126 

47 

00130 

00127 

X 

86. 

t 

, ZJ 

.L4-2 

,L+1 

9 

00127 

00127 

21 

31000 

00420 

X 

87. 

9 

, RA 

,Q 

,C1 

9 

00130 

00130 

41 

00524 

00124 

X 

88. 

9 

, IJ 

,T5 

,L-4 

9 

00131 

00131 

11 

31000 

00524 

X 

89. 

9 

, TP 

.0 

,T5 

9 

00132 

00132 

11 

00442 

00526 

X 

90. 

, S6 

, TP 

,C20 

,T7 

.GENERATE NEW CATALOGUE 

00133 

00133 

11 

00445 

00134 

X 

91. 

9 

, TP 

,C23 

,L+1 

9 

00134 

00134 

11 

30000 

30000 

X 

92. 

9 

, TP 

,FILL 

.FILL 

t 

00135 

00135 

23 

00134 

00446 

X 

93. 

9 

, RS 

,1-1 

,C24 

9 

00136 

00136 

41 

00526 

00134 

X 

94. 

9 

, IJ 

,T7 

,L-2 

1 

00137 

00137 

37 

00137 

00140 

X 

95. 

, S7 

, RJ 

,L 

,L+1 

9 

00140 

00140 

11 

00447 

00527 

X 

96. 

9 

, TP 

,C25 

,T8 

9 

00141 

00141 

11 

00450 

00530 

X 

97. 

9 

, TP 

,C26 

,T9 

9 

00142 

00142 

11 

00440 

00531 

X 

98. 

9 

, TP 

,Cl7 

,T10 

9 

00143 

00143 

11 

00441 

00526 

X 

99. 

9 

, TP 

,C18 

,T7 

9 

00144 

00144 

11 

00504 

00514 

X 

100. 

9 

, TP 

,120V 

.ADDCWD 

9 

00145 

00145 

11 

00451 

00150 

X 

101. 

, S8 

, TP 

,C27 

,S9 

9 

00146 

00146 

15 

00452 

00151 

X 

102. 

9 

, TU 

,C28 

,L+3 

9 

00147 

00147 

16 

00452 

00154 

X 

103. 

9 

, TV 

,C28 

,L+5 

9 

00150 

00150 

11 

30000 

30000 

X 

104. 

. S9 

, TP 

,FI LL 

.FILL 

9 

00151 

00151 

55 

30000 

32000 

X 

105. 

9 

, 14 

.FILL 

,A 

9 







00152 

00152 

43 

00421 

00177 

X 

106. 

9 

, EJ 

,C2 

,S12 

9 

00153 

00153 

51 

00530 

32000 

X 

107. 

V 

. QT 

,T9 

,A 

9 

00154 

00154 

35 

00526 

30000 

X 

108. 

t 

, AT 

,T7 

.FILL 

9 

00155 

00155 

51 

00531 

00514 

X 

109. 

V 

, QT 

,T10 

, ADDCWD 

9 

00156 

00156 

43 

00522 

00166 

X 

110. 

t 

, EJ 

,T3 

,S11 

9 

00157 

00157 

43 

00521 

00164 

X 

111. 

» 

, EJ 

,T2 

♦S10+4 

9 

00160 

00160 

21 

00526 

00527 

X 

112. 

, S10 

, RA 

,T7 

,T8 

9 

00161 

00161 

21 

00150 

00474 

X 

113. 

» 

, RA 

,S9 

,2V 

9 

00162 

00162 

21 

00154 

00474 

X 

114. 

V 

, RA 

,S9+4 

,2V 

9 

00163 

00163 

37 

00163 

00164 

X 

115. 

t 

, RJ 

,L 

,L+1 

9 

00164 

00164 

75 

20002 

00150 

X 

116. 

9 

, RPU 

,2 

,S9 

9 

00165 

00165 

21 

00150 

00475 

X 

117. 

t 

, RA 

,S9 

,2U 

9 

00166 

00166 

37 

00166 

00167 

X 

118. 

♦ Sll 

, RJ 

,L 

,L+1 

9 

00167 

00167 

16 

00150 

00171 

X 

119. 

t 

, TV 

,S9 

,L+2 

9 

00170 

00170 

16 

00154 

00173 

X 

120. 

t 

, TV 

,S9+4 

,L+3 

9 

00171 

00171 

11 

00524 

30000 

X 

121. 

t 

, TP 

,T5 

.FILL 

9 

00172 

00172 

31 

00526 

00000 

X 

122. 

* 

, SP 

,T7 

t 

9 

00173 

00173 

35 

00525 

30000 

X 

123. 

t 

, AT 

,T6 

.FILL 

9 

00174 

00174 

16 

00164 

00163 

X 

124. 

t 

, TV 

,S10+4 

.S10+3 

9 

00175 

00175 

16 

00176 

00166 

X 

125. 

t 

, TV 

,L+1 

,S11 

9 

00176 

00176 

45 

00000 

00160 

X 

126. 

f 

, MJ 

t 

,S10 

9 

00177 

00177 

21 

00514 

00527 

X 

127. 

» S12 

, RA 

.ADDCWD 

,T8 

9 

00200 

00200 

43 

00522 

00167 

X 

128. 

9 

, EJ 

,T3 

.Sll+l 

9 

00201 

00201 

16 

00150 

00203 

X 

129. 

1 

f TV 

,S9 

,L+2 

I 

00202 

00202 

75 

10004 

00204 

X 

130. 

9 

, RPV 

,4 

.L+2 

9 

00203 

00203 

11 

00421 

30000 

X 

131. 

t 

, TP 

,C2 

.FILL 

9 

00204 

00204 

37 

00166 

00166 

X 

132. 

9 

, RJ 

,S11 

,S11 

9 

00205 

00205 

37 

00205 

00206 

X 

133. 

t S13 

, RJ 

*L 

,L+1 

9 

00206 

00206 

31 

00523 

00000 

X 

134. 

t 

, SP 

,T4 

, 

,WRITE NEW CATALOG 

00207 

00207 

73 

00504 

00532 

X 

135. 

t 

, DV 

,120V 

,T11 

9 

00210 

00210 

47 

00211 

00212 

X 

136. 

t 

, ZJ 

,L+1 

,L+2 

9 

00211 

00211 

21 

00532 

00473 

X 

137. 

t 

, RA 

♦Til 

,1V 

9 

00212 

00212 

31 

00532 

00000 

X 

138. 

9 

, SP 

,T11 

, 

9 

00213 

00213 

37 

00543 

00535 

X 

139. 

9 

, RJ 

,MTWREX 

.MTWRE2 

9 

00214 

00214 

31 

00473 

00000 

X 

140. 

9 

, SP 

,1V 

,0 

,READ OP FILE LABEL 

00215 

00215 

37 

00565 

00555 

X 

141. 

9 

, RJ 

,MTRDEX 

.MTREAD 

9 

00216 

00216 

11 

00523 

01320 

X 

142. 

f 

, TP 

*T4 

,BF+2 

,SET REVISED WORD COUNT 

00217 

00217 

31 

00473 

00000 

X 

143. 

t 

, SP 

,iv 

,0 

t WRITE OP FILE LABEL 







00220 

00220 

37 

00543 

00535 

X 

144. 

» 

t 

RJ 

.MTWREX 

.MTWRE2 

Y 

00221 

00221 

37 

00115 

00111 

X 

145. 

V 

t 

RJ 

,S5 

,S4 

.READ OP FILE 

00222 

00222 

55 

00007 

31025 

X 

146. 

t 

» 

LQ 

,PAR1 

,Q+21 

.GENERATE OP FILE ITEM 

00223 

00223 

51 

00453 

00524 

X 

147. 

Y 

t 

QT 

,C30 

,T5 

Y 

00224 

00224 

55 

00010 

31022 

X 

148. 

f 

» 

LQ 

,PAR2 

,Q+18 

Y 

00225 

00225 

52 

00464 

00524 

X 

149. 

Y 

V 

QA 

,K7 

,T5 

V 

00226 

00226 

11 

00435 

31000 

X 

150. 

t 

t 

TP 

,C14 

»Q 

Y 

00227 

00227 

42 

00506 

00231 

X 

151. 

t 

t 

TJ 

,513V 

,L+2 

V 

00230 

00230 

45 

00000 

00056 

X 

152. 

t 

t 

MJ 

V 

.ALARM1-4 

Y 

00231 

00231 

55 

00525 

00017 

X 

153. 

t 

Y 

LQ 

»T6 

,15 

Y 

00232 

00232 

45 

00000 

00233 

X 

154. 

t 

f 

MJ 

Y 

,S13+22 

Y 

00233 

00233 

55 

00527 

00017 

X 

155. 

Y 

Y 

LQ 

,T8 

,15 

t GENERATE NEW OP FILE 

00234 

00234 

55 

00530 

00017 

X 

156. 

» 

Y 

LQ 

,T9 

,15 

Y 

00235 

00235 

55 

00531 

00017 

X 

157. 

r 

Y 

LQ 

,T10 

,15 

Y 

00236 

00236 

55 

00521 

00017 

X 

158. 

» 

Y 

LQ 

,T2 

,15 

Y 

00237 

00237 

55 

00522 

00017 

X 

159. 

* 

Y 

LQ 

,T3 

,15 

Y 

00240 

00240 

11 

00444 

00526 

X 

160. 

, S14 

Y 

TP 

,C22 

,T7 

Y 

00241 

00241 

11 

00454 

00245 

X 

161. 

t 

Y 

TP 

,C32 

,L+4 

Y 

00242 

00242 

15 

00455 

00244 

X 

162. 

t 

Y 

TU 

,C33 

,L+2 

t 

00243 

00243 

16 

00452 

00246 

X 

163. 

t 

Y 

TV 

,C28 

,L+3 

Y 

00244 

002 44 

11 

30000 

31000 

X 

164. 

t 

Y 

TP 

.FILL 

»Q 

Y 

00245 

00245 

11 

30000 

30000 

X 

165. 

f 

Y 

TP 

.FILL 

.FILL 

Y 

00246 

00246 

11 

31000 

30000 

X 

166. 

t 

Y 

TP 

.Q 

.FILL 

Y 

00247 

00247 

21 

00244 

00475 

X 

167. 

Y 

Y 

RA 

,L-3 

,2U 

t 

00250 

002 50 

21 

00245 

00472 

X 

168. 

Y 

Y 

RA 

,L-3 

,K13 

Y 

00251 

00251 

21 

00246 

00474 

X 

169. 

t 

Y 

RA 

,L-3 

,2V 

Y 

00252 

00252 

41 

00526 

00244 

X 

170. 

* 

Y 

IJ 

,T7 

,L-6 

Y 

00253 

00253 

37 

00253 

00254 

X 

171. 

, S15 

Y 

RJ 

»L 

,L+1 

Y 

00254 

00254 

37 

00137 

00132 

X 

172. 

t 

Y 

RJ 

,S7 

,S6 

Y 

00255 

00255 

11 

00465 

00526 

X 

173. 

t 

Y 

TP 

,K8 

,T7 

Y 

00256 

00256 

16 

00474 

00526 

X 

174. 

« 

V 

TV 

,2V 

,T7 

Y 

00257 

00257 

11 

00466 

00514 

X 

175. 

t 

Y 

TP 

,K9 

.ADDCWD 

Y 

00260 

00260 

37 

00205 

00145 

X 

176. 

f 

Y 

RJ 

,S13 

,S8 

Y 

00261 

00261 

37 

00253 

00240 

X 

177. 

t 

Y 

RJ 

,S15 

,S14 

Y 

00262 

00262 

31 

00532 

00000 

X 

178. 

* 

Y 

SP 

,Tl 1 

Y 

.WRITE NEW OP FILE 

00263 

00263 

37 

00543 

00535 

X 

179. 

• 

Y 

RJ 

.MTWREX 

.MTWRE2 

, 

00264 

00264 

31 

00473 

00000 

X 

180. 

Y 

V 

SP 

,1V 

,0 

.READ SUBROUTINE LABEL 

00265 

00265 

37 

00565 

00555 

X 

181. 

Y 

Y 

RJ 

.MTRDEX 

.MTREAD 

* 







00266 

00266 

31 

00473 

00000 

X 

182. 

00267 

00267 

37 

00543 

00535 

X 

183. 

00270 

00270 

11 

00465 

00507 

X 

184. 

00271 

00271 

11 

00465 

00510 

X 

185. 

00272 

00272 

11 

00007 

31000 

X 

186. 

00273 

00273 

51 

00457 

00511 

X 

187. 

00274 

00274 

51 

00460 

00512 

X 

188. 

00275 

00275 

51 

00462 

00513 

X 

189. 

00276 

00276 

11 

00010 

31000 

X 

190. 

00277 

00277 

51 

00457 

00514 

X 

191. 

00300 

00300 

51 

00463 

00515 

X 

192. 

00301 

00301 

51 

00464 

00516 

X 

193. 

00302 

00302 

55 

00511 

00033 

X 

194. 

00303 

00303 

55 

00514 

00033 

X 

195. 

00304 

00304 

21 

00511 

00466 

X 

196. 

00305 

00305 

21 

00514 

00466 

X 

197. 

00306 

00306 

37 

01222 

01141 

X 

198. 

00307 

00307 

31 

00507 

00000 

X 

199. 

00310 

00310 

43 

00514 

00312 

X 

200. 

00311 

00311 

45 

00000 

00354 

X 

201. 

00312 

00312 

31 

00513 

00025 

X 

202. 

00313 

00313 

22 

00000 

01317 

X 

203. 

00314 

00314 

31 

00512 

00003 

X 

204. 

00315 

00315 

32 

00510 

00000 

X 

205. 

00316 

00316 

32 

01317 

00000 

X 

206. 

00317 

00317 

35 

00461 

01316 

X 

207. 

00320 

00320 

55 

00512 

00030 

X 

208. 

00321 

00321 

11 

31000 

01321 

X 

209. 

00322 

00322 

23 

01317 

00516 

X 

210. 

00323 

00323 

11 

00515 

01320 

X 

211. 

00324 

00324 

11 

00473 

01322 

X 

212. 

00325 

00325 

11 

00011 

01323 

X 

213. 

00326 

00326 

11 

00477 

01324 

X 

214. 

00327 

00327 

55 

01323 

00006 

X 

215. 

00330 

00330 

51 

00420 

32000 

X 

216. 

00331 

00331 

47 

00333 

00332 

X 

217. 


, SP 

,1V 

,0 

, RJ 

.MTWREX 

.MTWRE2 

, TP 

,K8 

, ICWDC 

, TP 

,K8 

.OCWDC 

, TP 
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,Q 

, QT 

,K2 

.DELCWD 

, QT 
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, QT 

,K5 
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,Q 
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,K2 

.ADDCWD 
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,K6 

,QNP 
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,K7 

,P 

, lq 

.DELCWD 

,27 

. LQ 

.ADDCWD 

,27 
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.DELCWD 

,K9 
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, ADDCWD 

,K9 

, RJ 
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.HSPEl 

, SP 

.ICWDC 

,0 

, EJ 

.ADDCWD 

,L+2 

, MJ 

t 

,B5 

, SP 

.NOWDS 

,21 
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t 

,BF+1 

, SP 
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,3 

, SA 

.OCWDC 

,0 

, SA 

,BF+1 

,0 

, AT 

,K4 

,BF 

. lq 
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,24 

, TP 

»Q 

.BF-t-3 

, RS 

,BF+1 

,P 

, TP 

»QNP 

,BF+2 

, TP 

,1V 

,BF+4 

, TP 

,PAR3 

,BF+5 

, TP 

,5V 

,BF+6 
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,6 
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00332 

00332 

21 

31000 

00473 

X 

218. 

V 

, RA 

.0 

,1V 

, $ 

00333 

00333 

41 

01324 

00327 

X 

219. 

t 

, IJ 

,BF+6 

,B2 

, $ 

00334 

00334 

21 

00510 

00456 

X 

220. 

9 

, RA 

,OCWDC 

,K1 

, $ 

00335 

00335 

11 

00462 

31000 

X 

221. 

t 

, TP 

,K5 

,0 

, $ 

00336 

00336 

53 

00513 

00341 

X 

222. 

9 

, OS 

.NOWDS 

,B3 

, $ 

00337 

00337 

53 

00513 

00344 

X 

223. 

9 

, OS 

.NOWDS 

»B4 

, $ 

00340 

00340 

21 

00341 

00505 

X 

224. 

9 

, RA 

*B3 

,120U 

, $ 

00341 

00341 

75 

10000 

00343 

X 

225. 

, B3 

, RPV 

,0 

,L+2 

.FILL BUFFER WITH Z CODES$ 

00342 

00342 

11 

00421 

01324 

X 

226. 

9 

, TP 

»C2 

,BF+6 

, $ 

00343 

00343 

37 

01222 

01156 

X 

227. 

9 

, RJ 

.HSPEX 

,HSPE2 

. $ 

00344 

00344 

75 

30000 

00346 

X 

228. 

» 84 

, RPB 

» 

,L+2 

, $ 

00345 

00345 

11 

60000 

01324 

X 

229. 

t 

, TP 

,RTN 

,BF+6 

, $ 

00346 

00346 

21 

00513 

00501 

X 

230. 

9 

, RA 

.NOWDS 

,6U 

, $ 

00347 

00347 

73 

00505 

31000 

X 

231. 

9 

, DV 

,120U 

,0 

, $ 

00350 

00350 

47 

00351 

00352 

X 

232. 

9 

, ZJ 

,L+1 

,L+2 

, $ 

00351 

00351 

21 

31000 

00473 

X 

233. 

9 

, RA 

.0 

,1V 

, $ 

00352 

00352 

31 

31000 

00000 

X 

234. 

9 

, SP 

.0 

,0 

, $ 

00353 

00353 

37 

00543 

00535 

X 

235. 

9 

, RJ 

.MTWREX 

.MTWRE2 

.WRITE ROUTINE ON OUTPUT $ 
TAPE 

00354 

00354 

31 

00473 

00000 

X 

236. 

, B5 

, SP 

,1V 

,0 

, $ 

00355 

00355 

37 

00565 

00555 

X 

237. 

t 

, RJ 

t MTRDEX 

.MTREAD 

.READ 1 BLOCK FROM $ 

INPUT TAPE 

00356 

00356 

31 

01316 

00000 

X 

238. 

9 

, SP 

,BF 

,0 

, $ 

00357 

00357 

43 

00431 

00407 

X 

239. 

9 

, EJ 

,C10 

»B7 

,IS THIS END OF ENTRY $ 

, BLOCK 

00360 

00360 

11 

00467 

31000 

X 

240. 

9 

, TP 

,K10 

«Q 

NO $ 

00361 

00361 

51 

01316 

32000 

X 

241. 

9 

, qt 

iBF 

,A 

. $ 

00362 

00362 

73 

00504 

00517 

X 

242. 

9 

, DV 

,120V 

.TEMPI 

, $ 

00363 

00363 

47 

00364 

00365 

X 

243. 

9 

, ZJ 

,L+l 

,L+2 

, $ 

00364 

00364 

21 

00517 

00473 

X 

244. 

9 

, RA 

.TEMPI 

,1V 

, $ 

00365 

00365 

31 

00507 

00000 

X 

245. 

9 

, SP 

.ICWDC 

,0 

, $ 

00366 

00366 

43 

00511 

00401 

X 

246. 

9 

, EJ 

.DELCWD 

,B6 

,IS ROUTINE TO BE $ 

DELETED 

00367 

00367 

21 

00507 

00456 

X 

247. 

9 

, RA 

.ICWDC 

,K1 

,N0 $ 

00370 

00370 

11 

00470 

31000 

X 

248. 

9 

, TP 

,K11 

.0 

. $ 

00371 

00371 

53 

00510 

01316 

X 

249. 

9 

, os 

.OCWDC 

,BF 

. $ 

00372 

00372 

21 

00510 

00456 

X 

250. 

9 

, RA 

.OCWDC 

,K1 

, $ 

00373 

00373 

37 

01222 

01156 

X 

251. 

9 

, RJ 

.HSPEX 

,HSPE2 

, $ 

00374 

00374 

23 

00517 

00473 

X 

252. 

9 

, RS 

.TEMPI 

,1V 

. $ 





00375 

00375 

37 

00565 

00556 

X 

253. 

t 

, RJ 

t MTRDEX 

.MTREAD+l 

# READ REST OF ROUTINE 

00376 

00376 

21 

00517 

00473 

X 

254. 

t 

, RA 

.TEMPI 

.IV 

9 

00377 

00377 

37 

00543 

00535 

X 

255. 

t 

, RJ 

.MTWREX 

.MTWRE2 

♦WRITE ROUTINE TO OUTPUT 
TAPE 

00400 

00400 

45 

00000 

00307 

X 

256. 

9 

, MJ 

9 

,B1 

9 

00401 

00401 

23 

00517 

00473 

X 

257. 

, B6 

, RS 

.TEMP 1 

,1V 

9 

00402 

00402 

11 

00471 

31000 

X 

258. 

t 

, TP 

,K12 

,0 

9 

00403 

00403 

53 

00517 

00672 

X 

259. 

f 

, QS 

.TEMPI 

.MVFWIN 

9 

00404 

00404 

17 

00000 

00672 

X 

260. 

9 

, EF 

9 

.MVFWIN 

f MOVE PAST ROUTINE TO 

BE DELETED 

00405 

00405 

21 

00507 

00456 

X 

261. 

9 

, RA 

.ICWDC 

,K1 

9 

00406 

00406 

45 

00000 

00307 

X 

262. 

9 

, MJ 

9 

,B1 

9 

00407 

00407 

11 

00432 

01317 

X 

263. 

, B7 

t TP 

,C11 

,BF+1 

♦WRITE END OF ENTRY 

BLOCKS TO OUTPUT TAPE 

00410 

00410 

75 

10546 

00412 

X 

264. 

9 

, RPV 

,358 

,L+2 

9 

00411 

00411 

11 

00421 

01320 

X 

265. 

9 

, TP 

,C2 

,BF42 

9 

00412 

00412 

31 

00476 

00000 

X 

266. 

9 

, SP 

,3V 

,0 


00413 

00413 

37 

00543 

00535 

X 

267. 

9 

, RJ 

.MTWREX 

.MTWRE2 

9 

00414 

00414 

17 

00000 

00670 

X 

268. 

9 

, ef 

9 

.MTINRW 

9 

00415 

00415 

37 

01222 

01250 

X 

269. 

9 

, RJ 

.HSPEX 

,HSPE3 

9 

00416 

00416 

37 

00635 

00622 

X 

270. 

9 

, RJ 

.MTCHEX 

.MTCHEK 

♦CHECK OUTPUT TAPE 

00417 

00417 

45 

00000 

00006 

X 

271. 

9 

, MJ 

9 

.EXIT 

9 

00420 

00420 

00 

00000 

00077 

X 

272. 

, Cl 

, B 

9 

,77 

♦CONSTANTS 

00421 

00421 

74 

74747 

47474 

X 

273. 

f C2 

, B74 

,74747 

,47474 

9 

00422 

00422 

01 

01463 

42501 

X 

274. 

f C3 

, B01 

,01463 

,42501 

9 

00423 

00423 

01 

66245 

23001 

X 

275. 

. C4 

, B01 

,66245 

,23001 

9 

00424 

00424 

46 

34250 

10101 

X 

276. 

, C5 

, B46 

,34250 

,10101 

9 

00425 

00425 

26 

24660 

10101 

X 

277. 

, C6 

, B26 

,24660 

,10101 

9 

00426 

00426 

01 

01015 

15201 

X 

278. 

, C7 

, B01 

,01015 

,15201 

9 

00427 

00427 

31 

34463 

00104 

X 

279. 

, C8 

, B31 

,34463 

,00104 

9 

00430 

00430 

65 

67255 

46650 

X 

280. 

. C9 

, B65 

,67255 

,46650 

9 

00431 

00431 

30 

50270 

15131 

X 

281. 

, CIO 

, B30 

,50270 

,15131 

9 

00432 

00432 

01 

30506 

65473 

X 

282. 

, Cll 

, BOl 

,30506 

,65473 

9 

00433 

00433 

00 

00001 

70000 

X 

283. 

, Cl2 

. B 

.1 

,70000 

9 

00434 

00434 

00 

00000 

40000 

X 

284. 

, C13 

, B 

9 

,40000 

9 

00435 

00435 

31 

03122 

22404 

X 

285. 

, C14 

, B31 

,03122 

,22404 

9 

00436 

00436 

06 

03041 

11423 

X 

286. 

, C15 

, B06 

,03041 

,11423 

9 

00437 

00437 

31 

26343 

03762 

X 

287. 

»C16 

, B31 

,26343 

,03762 

9 








00440 

00440 

00 

00000 

07770 

X 

288. 

t 

C17 

, B 

Y 

,7770 

00441 

00441 

00 

00000 

00200 

X 

289. 

t 

Cl8 

» B 

Y 

,200 

00442 

00442 

00 

00000 

01775 

X 

290. 

Y 

C20 

t 

f 

,1021 

00443 

00443 

00 

00000 

50000 

X 

291. 

t 

C21 

, B 

Y 

,50000 

00444 

00444 

00 

00000 

00776 

X 

292. 

I 

C22 

» 

Y 

,510 

00445 

00445 

11 

03313 

03315 

X 

293. 

t 

C23 

, TP 

.BF+1021 

.BF+1023 

00446 

00446 

00 

00001 

00001 

X 

294. 

t 

C24 

» 

,1 

,1 

00447 

00447 

00 

00000 

00010 

X 

295. 

t 

C25 

» B 

Y 

,10 

00450 

00450 

00 

00000 

50007 

X 

296. 

t 

C26 

, B 

Y 

,50007 

00451 

00451 

11 

01320 

01316 

X 

297. 

t 

C27 

, TP 

,BF+2 

,BF 

00452 

00452 

00 

01321 

01317 

X 

298. 

f 

C28 

• 

,BF+3 

,BF+1 

00453 

00453 

00 

00000 

07777 

X 

299. 

Y 

C30 

, B 

» 

,7777 

00454 

00454 

11 

01317 

01316 

X 

300. 

1 

C32 

, TP 

,BF+1 

,BF 

00455 

00455 

00 

01316 

00000 

X 

301. 

t 

C33 

f 

,BF 

Y 

00456 

00456 

00 

00010 

00000 

X 

302. 

t 

K1 

, BOO 

,00010 

,00000 

00457 

00457 

77 

70000 

00000 

X 

303. 

Y 

K2 

, B77 

,70000 

,00000 

00460 

00460 

00 

00000 

70000 

X 

304. 

t 

K3 

, BOO 

,00000 

,70000 

00461 

00461 

00 

50000 

00006 

X 

305. 

Y 

K4 

, BOO 

,50000 

,00006 

00462 

00462 

00 

07777 

00000 

X 

306. 

Y 

K5 

, B 

,7777 

,00000 

00463 

00463 

00 

07777 

77777 

X 

307. 

f 

K6 

, B 

,7777 

,77777 

00464 

00464 

00 

00000 

00777 

X 

308. 

Y 

K7 

, B 

Y 

,777 

00465 

00465 

00 

00200 

00000 

X 

309. 

t 

K8 

. B 

,200 

,00000 

00466 

00466 

00 

00170 

00000 

X 

310. 

f 

K9 

, B 

,170 

,00000 

00467 

00467 

00 

00000 

77777 

X 

311. 

f 

K10 

. B 

Y 

,77777 

00470 

00470 

00 

07770 

00000 

X 

312. 

I 

Kll 

, B 

,7770 

,00000 

00471 

00471 

00 

00000 

07777 

X 

313. 

Y 

K12 

. B 

Y 

,7777 

00472 

00472 

00 

00002 

00002 

X 

314. 

Y 

K13 

Y 

,2 

,2 

00473 

00473 

00 

00000 

00001 

X 

315. 

Y 

IV 

f 

Y 

,1 

00474 

00474 

00 

00000 

00002 

X 

316. 

» 

2V 

I 

Y 

,2 

00475 

00475 

00 

00002 

00000 

X 

317. 

t 

2U 

t 

,2 

f 

00476 

00476 

00 

00000 

00003 

X 

318. 

t 

3V 

Y 

Y 

,3 

00477 

00477 

00 

00000 

00005 

X 

319. 

f 

5V 

Y 

Y 

,5 

00500 

00500 

00 

00000 

00006 

X 

320. 

Y 

6V 

Y 

Y 

,6 

00501 

00501 

00 

00006 

00000 

X 

321. 

« 

6U 

f 

.6 

Y 

00502 

00502 

00 

00000 

00007 

X 

322. 

Y 

TV 

t 

t 

,7 

00503 

00503 

00 

00000 

00017 

X 

323. 

f 

15V 

» 

V 

,15 

00504 

00504 

00 

00000 

00170 

X 

324. 

t 

120V 

Y 

t 

,120 

00505 

00505 

00 

00170 

00000 

X 

325. 

f 

120U 

1 

,120 

* 








00506 

00506 

00 

00000 

01001 

X, 

326. 

, 513V , 


t 

9513 

00507 

00507 

00 

00000 

00000 

X 

327. 

, ICWDC , 


t 

.0 

00510 

00510 

00 

00000 

00000 

X 

328. 

, OCWDC , 


V 

tO 

00511 

00511 

00 

00000 

00000 

X 

329. 

, DELCWD, 


t 

•0 

00512 

00512 

00 

00000 

00000 

X 

330. 

, INPUTS, 


t 

•0 

00513 

00513 

00 

00000 

00000 

X 

331. 

, NOWDS , 


9 

• 0 

00514 

00514 

00 

00000 

00000 

X 

332. 

, ADDCWD, 


f 

tO 

00515 

00515 

00 

00000 

00000 

X 

333. 

, QNP , 


t 

.0 

00516 

00516 

00 

00000 

00000 

X 

334. 

. P . 


t 

tO 

00517 

00517 

00 

00000 

00000 

X 

335. 

, TEMPI , 


t 

»o 

00520 

00520 

00 

00000 

00000 

X 

336. 

, T1 


? 

9 

00521 

00521 

00 

00000 

00000 

X 

337. 

, T2 , 


t 

9 

00522 

00522 

00 

00000 

00000 

X 

338. 

, T3 


V 

9 

00523 

00523 

00 

00000 

00000 

X 

339. 

. T4 


9 

9 

00524 

00524 

00 

00000 

00000 

X 

340. 

, T5 , 


t 

9 

00525 

00525 

00 

00000 

00000 

X 

341. 

, T6 , 


t 

9 

00526 

00526 

00 

00000 

00000 

X 

342. 

, T7 , 


f 

9 

00527 

00527 

00 

00000 

00000 

X 

343. 

• T8 , 


V 

9 

00530 

00530 

00 

00000 

00000 

X 

344. 

, T9 , 


t 

9 

00531 

00531 

00 

00000 

00000 

X 

345. 

, T10 


9 

9 

00532 

00532 

00 

00000 

00000 

X 

346. 

. Til , 


9 

9 

00533 

00533 

11 

00674 

00712 

X 

347. 

, MTWRE1, 

TP 

,MTZERO 

.MTBLKS 

00534 

00534 

11 

00674 

00713 

X 

348. 

t t 

TP 

.MTZERO 

,MTSUM 

00535 

00535 

16 

00673 

00554 

X 

349. 

t MTWRE2 , 

TV 

,MTSET 

,MTEW 

00536 

00536 

15 

00673 

00551 

X 

350. 

t t 

TU 

,MTSET 

,MTWR3 

00537 

00537 

17 

00000 

00663 

X 

351. 

t f 

EF 

9 

.MTWRIT 

00540 

00540 

11 

32000 

00714 

X 

352. 

t i 

TP 

.A 

,MTIND1 

00541 

00541 

41 

00714 

00544 

X 

353. 

t MTWRl f 

IJ 

.MTINDl 

.MTWR2 

00542 

00542 

17 

00000 

00657 

X 

354. 

t t 

EF 

9 

.MTSTOP 

00543 

00543 

45 

00000 

30000 

X 

355. 

f MTWREX , 

MJ 

t 

.FILL 

00544 

00544 

21 

00554 

00701 

X 

356. 

f MTWR2 , 

RA 

,MTEW 

,MT120V 

00545 

00545 

21 

00551 

00702 

X 

357. 

i t 

RA 

,MTWR3 

.MT120U 

00546 

00546 

21 

00712 

00675 

X 

358. 

t i 

RA 

.MTBLKS 

,MT1V 

00547 

00547 

31 

00713 

00000 

X 

359. 

t t 

SP 

,MTSUM 

.0 

00550 

00550 

75 

20170 

00552 

X 

360. 

» » 

RPU 

,120 

,L+2 

00551 

00551 

32 

30000 

00000 

X 

361. 

f MTWR3 f 

SA 

.FILL 

,0 

00552 

00552 

11 

32000 

00713 

X 

362. 

t i 

TP 

.A 

,MTSUM 

00553 

00553 

75 

10170 

00541 

X 

363. 

« T 

RPV 

,120 

r MTWRl 


TEMPORARIES 


ENTRY I WRITE MAG TAPE 
ENTRY 2 

EXIT FOR WRITE MAG TAPE 


-b* m -&■ -b* <& *W- ^ -6* W -6* 








Ui 

vO 


00554 

00554 

77 

10000 

30000 

X 

364. 

f MTEW 


EWB 

• 

.FILL 

00555 

00555 

16 

00673 

00570 

X 

365. 

t MTREAD 


TV 

,MTSET 

,MTER 

00556 

00556 

11 

32000 

00714 

X 

366. 

t 


TP 

.A 

.MTINDl 

00557 

00557 

47 

00560 

00565 

X 

367. 

t 


ZJ 

,L +1 

.MTRDEX 

00560 

00560 

17 

00000 

00667 

X 

368. 

t 


EF 

» 

.MTRDFW 

00561 

00561 

11 

00677 

00715 

X 

369. 

f MTRD 1 


TP 

,MT5V 

,NCTIND2 

00562 

00562 

41 

00714 

00566 

X 

370. 

t 


IJ 

,MTINDl 

.MTRD2 

00563 

00563 

17 

00000 

00657 

X 

371. 

» 


EF 

t 

.MTSTOP 

00564 

00564 

17 

00000 

00660 

X 

372. 

9 


EF 

* 

.MTNOBI 

00565 

00565 

45 

00000 

30000 

X 

373. 

, MTRDEX 


MJ 

» 

.FILL 

00566 

00566 

21 

00570 

00701 

X 

374. 

f MTRD2 


RA 

,MTER 

.MT120V 

00567 

00567 

75 

10170 

00571 

X 

375. 

9 


RPV 

,120 

,L+2 

00570 

00570 

76 

10000 

30000 

X 

376. 

t MTER 


ERB 

» 

.FILL 

00571 

00571 

76 

00000 

32000 

X 

377. 

9 


ERA 

• 

,A 

00572 

00572 

47 

00573 

00561 

X 

378. 

9 


ZJ 

,L +1 

.MTRD 1 

00573 

00573 

41 

00715 

00605 

X 

379. 

9 


IJ 

,MTIND2 

.MTRD4 

00574 

00574 

15 

00710 

00603 

X 

380. 

t 


TU 

,MTK 6 

.MTRD3+3 

00575 

00575 

11 

00703 

31000 

X 

381. 

9 


TP 

,MTK1 

»Q 

00576 

00576 

31 

00704 

00044 

X 

382. 

9 


SP 

,MTK2 

,36 

00577 

00577 

27 

32000 

00705 

X 

383. 

9 


CC 

,A 

,MTK3 

00600 

00600 

54 

32000 

00006 

X 

384. 

t MTRD3 


LA 

.A 

,6 

00601 

00601 

61 

00000 

32000 

X 

385. 

9 


PR 

• 

,A 

00602 

00602 

44 

00603 

00600 

X 

386. 

9 


QJ 

,L +1 

.MTRD3 

00603 

00603 

31 

30000 

00044 

X 

387. 

9 


SP 

.FILL 

,36 

00604 

00604 

44 

00062 

00600 

X 

388. 

9 


QJ 

.ALARM 1 

.MTRD3 

00605 

00605 

17 

00000 

00671 

X 

389. 

f MTRD4 


EF 

9 

.MTMVBA 

00606 

00606 

45 

00000 

00607 

X 

390. 

t 


MJ 

9 

,L +1 

00607 

00607 

17 

00000 

00661 

X 

391. 

9 


EF 

9 

.MTHIBI 

00610 

00610 

21 

00606 

00676 

X 

392. 

9 


RA 

r MTRD4+l 

,MT3V 

00611 

00611 

45 

00000 

00617 

X 

393. 

9 


MJ 

♦ 

.MTRD5 

00612 

00612 

17 

00000 

00662 

X 

394. 

• 


EF 

» 

.MTLOBI 

00613 

00613 

21 

00606 

00676 

X 

395. 

9 


RA 

,MTRD4+1 

,MT3V 

00614 

00614 

45 

00000 

00617 

X 

396. 

• 


MJ 

9 

.MTRD5 

00615 

00615 

17 

00000 

00660 

X 

397. 

t 


EF 

« 

.MTNOBI 

00616 

00616 

23 

00606 

00700 

X 

398. 

t 


RS 

f MTRD4+l 

,MT 6 V 

00617 

00617 

37 

00617 

00620 

X 

399. 

t MTRD5 


RJ 

9 L 

,L +1 

00620 

00620 

17 

00000 

00667 

X 

400. 

9 


EF 

9 

.MTRDFW 

00621 

00621 

45 

00000 

00567 

X 

401. 

9 


MJ 

9 

.MTRD2+1 


,ENTRY TO READ MT 


EXIT FOR READ MT 









00622 

00622 

75 

10170 

00624 

X 

402. 

f MTCHEK, 

RPV 

,120 

,L+2 

.ENTRY TO 

CHECK MAG TAPE 

00623 

00623 

11 

00674 

01316 

X 

403. 

t » 

TP 

.MTZERO 

,BF 

t 


00624 

00624 

17 

00000 

00664 

X 

404. 

V f 

EF 

t 

,MTRDBW 

t 


00625 

00625 

11 

00677 

00715 

X 

405. 

f MTCH2 , 

TP 

,MT5V 

.MTIND2 

f 


00626 

00626 

41 

00712 

00636 

X 

406. 

f V 

IJ 

,MTBLKS 

,MTCHEX+l 

1 


00627 

00627 

17 

00000 

00657 

X 

407. 

f t 

EF 

t 

.MTSTOP 

♦ 


00630 

00630 

17 

00000 

00665 

X 

408. 

t f 

EF 

» 

, MTOURW 

f 


00631 

00631 

37 

00643 

00636 

X 

409. 

« t 

RJ 

.MTCH3-1 

,MTCHEX+l 

V 


00632 

00632 

31 

00713 

00000 

X 

410. 

V t 

SP 

.MTSUM 

,0 

» 


00633 

00633 

47 

00651 

00634 

X 

411. 

9 t 

ZJ 

.MTCH5-2 

,L+1 

» 


00634 

00634 

17 

00000 

00660 

X 

412. 

9 t 

EF 

Y 

.MTNOBI 

» 


00635 

00635 

45 

00000 

30000 

X 

413. 

, MTCHEX, 

MJ 

f 

,FILL 

t EXIT FOR 

CHECK MAG TAPE 

00636 

00636 

31 

00457 

00011 

X 

414. 

t t 

SP 

,K2 

,9 

i 


00637 

00637 

32 

00713 

00000 

X 

415. 

t ? 

SA 

.ivrrsuM 

,0 

t 


00640 

00640 

75 

20170 

00642 

X 

416. 

f t 

RPU 

,120 

,L+2 

* 


00641 

00641 

34 

01316 

00000 

X 

417. 

» » 

SS 

,BF 

,0 

t 


00642 

00642 

11 

32000 

00713 

X 

418. 

» t 

TP 

,A 

, MTSUM 

t 


00643 

00643 

37 

00643 

00644 

X 

419. 

t » 

RJ 

,L 

, L+I 

» 


00644 

00644 

75 

10170 

00646 

X 

420. 

f MTCH3 f 

RPV 

,120 

,L+2 

V 


00645 

00645 

76 

10000 

01316 

X 

421. 

» t 

ERB 

1 

»BF 

f 


00646 

00646 

76 

00000 

32000 

X 

422. 

i f 

ERA 

t 

,A 

f 


00647 

00647 

47 

00650 

00625 

X 

423. 

t ? 

ZJ 

,L+1 

,MTCH2 

9 


00650 

00650 

41 

00715 

00653 

X 

424. 

i t 

IJ 

.MTIND2 

,MTCH5 

9 


00651 

00651 

15 

00711 

00603 

X 

425. 

t t 

TU 

,MTK7 

.MTRD3+3 

9 


00652 

00652 

45 

00000 

00575 

X 

426. 

i » 

MJ 

f 

.MTRD3-3 

9 


00653 

00653 

17 

00000 

00666 

X 

427. 

t MTCH5 , 

EF 

f 

.MTMVFW 

9 


00654 

00654 

37 

00617 

00606 

X 

428. 

t t 

RJ 

,MTRD5 

.MTRD4+1 

9 


00655 

00655 

17 

00000 

00664 

X 

429. 

t t 

EF 

f 

.MTRDBW 

9 


00656 

00656 

45 

00000 

00644 

X 

430. 

t t 

MJ 

9 

.MTCH3 

9 


00657 

00657 

02 

00600 

00000 

X 

431. 

f MTSTOP , 

B02 

,00600 

,00000 

9 


00660 

00660 

02 

00001 

50000 

X 

432. 

? MTNOBI, 

B02 

,00001 

,50000 

9 


00661 

00661 

02 

00001 

70000 

X 

433. 

t MTHIBI t 

B02 

,00001 

,70000 

9 


00662 

00662 

02 

00001 

60000 

X 

434. 

t MTLOBI, 

B02 

,00001 

,60000 

9 


00663 

00663 

02 

00006 

00000 

X 

435. 

f ivttwrit, 

B02 

,00006 

,00000 

t 


00664 

00664 

02 

00012 

00000 

X 

436. 

f MTRDBW, 

B02 

,00012 

,00000 

9 


00665 

00665 

02 

00200 

00000 

X 

437. 

f MTOURW t 

B02 

,00200 

,00000 

9 


00666 

00666 

02 

00004 

00001 

X 

438. 

f MTMVFW f 

B02 

,00004 

,00001 

9 


00667 

00667 

02 

00002 

00000 

X 

439. 

, MTRDFW, 

B02 

,00002 

,00000 










00670 

00670 

02 

00200 

00000 

X 

440. 

, MTINRW, 

B02 

,00200 

,00000 , 

00671 

00671 

02 

00014 

00001 

X 

441. 

, MTMVBA, 

BOS 

,00014 

,00001 , 

00672 

00672 

02 

00004 

00000 

X 

442. 

, MVFWIN , 

B02 

,00004 

,00000 

00673 

00673 

00 

01126 

01126 

X 

443. 

, MTSET , 


.BF-120 

,BF-120 , 

00674 

00674 

00 

00000 

00000 

X 

444. 

f MTZERO, 


? 

,0 

00675 

00675 

00 

00000 

00001 

X 

445. 

t MTlV , 


1 

,1 

00676 

00676 

00 

00000 

00003 

X 

446. 

, MT3V , 

B 

V 

.,3 

00677 

00677 

00 

00000 

00005 

X 

447. 

, MT5V , 


t 

,5 

00700 

00700 

00 

00000 

00006 

X 

448. 

, MT6V , 


f 

,6 

00701 

00701 

00 

00000 

00170 

X 

449. 

, NTT120V, 


t 

,120 

00702 

00702 

00 

00170 

00000 

X 

450. 

, MT120U, 


,120 

* i 

00703 

00703 

00 

01006 

00000 

X 

451. 

, MTKl , 

BOO 

,01006 

,00000 , 

00704 

00704 

45 

47040 

70104 

X 

452. 

, MTK2 , 

B45 

,47040 

,70104 , 

00705 

00705 

26 

30141 

12404 

X 

453. 

, MTK3 , 

B26 

,30141 

,12404 , 

00706 

00706 

12 

20302 

20404 

X 

454. 

, MTK4 , 

Bl2 

,20302 

,20404 , 

00707 

00707 

16 

05201 

63604 

X 

455. 

, MTK5 , 

B16 

,05201 

,63604 

00710 

00710 

00 

00706 

00000 

X 

456. 

, MTK6 , 


,MTK4 

,0 

00711 

00711 

00 

00707 

00000 

X 

457. 

, MTK7 , 


,MTK5 

,0 

00712 

00712 

00 

00000 

00000 

X 

458. 

, MTBLKS, 


t 

»0 , 

00713 

00713 

00 

00000 

00000 

X 

459. 

, MTSUM , 


t 

,0 

00714 

00714 

00 

00000 

00000 

X 

460. 

, MTIND1, 


t 

,0 

00715 

00715 

00 

00000 

00000 

X 

461. 

, MTIND2, 


f 

,0 






X 

462. 

, HSPBKT, 

RESERV 

,20 

,20 






X 

463. 

, HSPBLK, 

RESERV 

,120 

,120 






X 

464. 

, HSPTS , 

RESERV 

,6 

,6 

01140 

01140 

00 

00000 

00000 

X 

465. 

, HSPCTR , 


t 

,0 

01141 

01141 

75 

10214 

01143 

X 

466. 

, HSPE1 , 

RPV 

,140 

,L+2 .ENTRY 1 HSP LISTING 

01142 

01142 

11 

01262 

00716 

X 

467. 

t » 

TP 

,HSPK1 

, HSPBKT , 

01143 

Cl 143 

75 

30005 

01145 

X 

468. 

* » 

RPB 

.5 

,L+2 , 

01144 

01144 

11 

01300 

00742 

X 

469. 

» • 

TP 

.HSPHDl 

, HSPBLK 

01145 

01145 

75 

30003 

01147 

X 

470. 

» » 

RPB 

,3 

»L+2 , 

01146 

01146 

11 

01305 

01012 

X 

471. 

» » 

TP 

.HSPHD2 

.HSPBLK+40 , 

01147 

01147 

11 

01310 

01016 

X 

472. 

» » 

TP 

,HSPHD2+3 

.HSPBLK+44 , 

01150 

01150 

11 

01311 

01020 

X 

473. 

• t 

TP 

,HSPHD2+4 

.HSPBLK+46 , 

01151 

01151 

11 

01312 

01022 

X 

474 

t • 

TP 

.HSPHD2+5 

.HSPBLK+48, 

01152 

01152 

11 

01313 

01024 

X 

475. 

» t 

TP 

,HSPHD2+6 

.HSPBLK+50 , 

01153 

01153 

11 

01314 

01026 

X 

476. 

» t 

TP 

,HSPHD2+7 

.HSPBLK+52 , 

01154 

01154 

11 

01275 

01140 

X 

477. 

» » 

TP 

.HSP4V 

.HSPCTR 








01155 

01155 

45 

00000 

01222 

X 

478. 

t 

, MJ 

01156 

01156 

11 

01316 

31000 

X 

479. 

t HSPE2 

, TP 

01157 

01157 

51 

01264 

01136 

X 

480. 

• 

, QT 

01160 

01160 

55 

31000 

00022 

X 

481. 

i 

, LQ 

01161 

01161 

51 

01263 

32000 

X 

482. 

t 

, QT 

01162 

01162 

36 

00503 

32000 

X 

483. 

t 

, ST 

01163 

01163 

37 

01247 

01231 

X 

484. 

V 

, RJ 

01164 

01164 

11 

32000 

00716 

X 

485. 

t 

, TP 

01165 

01165 

11 

01323 

00720 

X 

486. 

t 

, TP 

01166 

01166 

23 

01136 

01276 

X 

487. 

t 

, RS 

01167 

01167 

37 

01247 

01231 

X 

488. 

♦ 

, RJ 

01170 

01170 

11 

32000 

00722 

X 

489. 

t 

, TP 

01171 

01171 

31 

01321 

00000 

X 

490. 

t 

, SP 

01172 

01172 

37 

01247 

01231 

X 

491. 

t 

, RJ 

01173 

01173 

11 

32000 

00724 

X 

492. 

t 

, TP 

01174 

01174 

11 

01320 

31000 

X 

493. 

t 

, TP 

01175 

01175 

51 

01263 

01136 

X 

494. 

♦ 

, QT 

01176 

01176 

55 

31000 

00022 

X 

495. 

t 

, LQ 

01177 

01177 

51 

01263 

01137 

X 

496. 

♦ 

, QT 

01200 

01200 

55 

31000 

00011 

X 

497. 

» 

. LQ 

01201 

01201 

51 

01263 

32000 

X 

498. 

» 

, QT 

01202 

01202 

37 

01247 

01231 

X 

499. 

t 

, RJ 

01203 

01203 

11 

32000 

00730 

X 

500. 

t 

, TP 

01204 

01204 

31 

01136 

00000 

X 

501. 

t 

, SP 

01205 

01205 

37 

01247 

01231 

X 

502. 

t 

, RJ 

01206 

01206 

11 

32000 

00732 

X 

503. 

I 

, TP 

01207 

01207 

31 

01137 

00000 

X 

504. 

t 

, SP 

01210 

01210 

37 

01247 

01231 

X 

505. 

9 

, RJ 

01211 

01211 

11 

32000 

00726 

X 

506. 

t 

, TP 

01212 

01212 

21 

01140 

01273 

X 

507. 

♦ HSP 1 

, RA 

01213 

01213 

71 

01140 

01277 

X 

508. 

t 

, MP 

01214 

01214 

35 

01265 

01216 

X 

509. 

r 

, AT 

01215 

01215 

75 

30024 

01217 

X 

510. 

t 

, RPB 

01216 

01216 

00 

00000 

00000 

X 

511. 

V 

, B 

01217 

01217 

31 

01140 

00000 

X 

512. 

9 

, SP 

01220 

01220 

43 

01276 

01223 

X 

513. 

f 

, EJ 

01221 

01221 

37 

01221 

01222 

X 

514. 

, HSP2 

♦ RJ 

01222 

01222 

45 

00000 

30000 

X 

515. 

. HSPEX 

, MJ 


♦ 

.HSPEX 

,BF 

»Q 

,HSPK3 

,HSPTS+4 

»Q 

,18 

,HSPK2 

,A 

,15V 

,A 

,HSP5 

,HSP3 

,A 

.HSPBKT 

,BF+5 

,HSPBICr+2 

.HSPTS+4 

,HSP6V 

,HSP5 

,HSP3 

, A 

,HSPBKT+4 

,BF+3 

,0 

,HSP5 

,HSP3 

*A 

.HSPBKT+6 

,BF+2 

,Q 

,HSPK2 

.HSPTS+4 

♦Q 

,18 

,HSPK2 

,HSPTS+5 

.Q 

,9 

,HSPK2 

,A 

,HSP5 

,HSP3 

iA 

.HSPBKT+10 

, HSPTS+4 

,0 

,HSP5 

,HSP3 

t A 

,HSPBKT+l2 

,HSPTS+5 

,0 

,HSP5 

,HSP3 

,A 

.HSPBKT+8 

.HSPCTR 

,HSP1V 

.HSPCTR 

.HSP20V 

,HSP K4 

,L+2 

,20 

,L+2 

t 

,0 

.HSPCTR 

,0 

,HSP6V 

,HSP2A 

,L 

,L+1 

» 

.FILL 


,ENTRY 2 HSP LISTING 


,EXIT FOR HSP LISTING 







01223 

01223 

17 

00000 

01272 

X 

516. 

, HSP2A 

Y 

EF 


,HSPWR 

Y 

01224 

01224 

23 

01140 

32000 

X 

517. 

Y 

Y 

RS 

, HSPCTR 

,A 

Y 

01225 

01225 

75 

10170 

01227 

X 

518. 

f 

Y 

RPV 

,120 

,L+2 

Y 

01226 

01226 

77 

10000 

00742 

X 

519. 

» 

Y 

EWB 

Y 

.HSPBLK 

Y 

01227 

01227 

75 

10170 

01221 

X 

520. 

Y 

Y 

RPV 

,120 

,HSP2 

Y 

01230 

01230 

11 

01262 

00742 

X 

521. 

Y 

Y 

TP 

,HSPKl 

.HSPBLK 

Y 

01231 

01231 

75 

30003 

01233 

X 

522. 

♦ HSP3 

Y 

RPB 

,3 

,L+2 

1 

01232 

01232 

73 

01266 

01132 

X 

523. 

Y 

Y 

DV 

.HSPK5 

.HSPTS 

Y 

01233 

01233 

35 

01274 

01135 

X 

524. 

Y 

Y 

AT 

,HSP2V 

.HSPTS+3 

Y 

01234 

01234 

23 

31000 

32000 

X 

525. 

Y 

Y 

RS 

•Q 

»A 

Y 

01235 

01235 

42 

01132 

01241 

X 

526. 

Y 

Y 

TJ 

.HSPTS 

,HSP4 

Y 

01236 

01236 

42 

01133 

01242 

X 

527. 

Y 

Y 

TJ 

.HSPTS+l 

.HSP4+1 

Y 

01237 

01237 

42 

01134 

01243 

X 

528. 

Y 

Y 

TJ 

.HSPTS+2 

.HSP4+2 

Y 

01240 

01240 

45 

00000 

01244 

X 

529. 

Y 

Y 

MJ 

i 

.HSP4+3 

Y 

01241 

01241 

21 

01132 

01274 

X 

530. 

, HSP4 

Y 

RA 

, HSPTS 

,HSP2V 

Y 

01242 

01242 

21 

01133 

01274 

X 

531. 

Y 

Y 

RA 

,HSPTS+l 

,HSP2V 

Y 

01243 

01243 

21 

01134 

01274 

X 

532. 

Y 

Y 

RA 

, HSPTS+2 

,HSP2V 

Y 

01244 

01244 

31 

01262 

00052 

X 

533. 

Y 

Y 

SP 

,HSPK1 

,42 

Y 

01245 

01245 

75 

20004 

01247 

X 

534. 

Y 

Y 

RPU 

,4 

,L+2 

Y 

01246 

01246 

32 

01132 

00006 

X 

535. 

Y 

Y 

SA 

.HSPTS 

,6 

Y 

01247 

01247 

45 

00000 

30000 

X 

536. 

, HSP5 

Y 

MJ 

, 

.FILL 

Y 

01250 

01250 

75 

10024 

01252 

X 

537. 

, HSPE3 

Y 

RPV 

,20 

,L+2 

.ENTRY 3 HSP LISTING 

01251 

01251 

11 

01262 

00716 

X 

538. 

Y 

Y 

TP 

,HSPK1 

.HSPBKT 

Y 

01252 

01252 

37 

01221 

01212 

X 

539. 

Y 

Y 

RJ 

,HSP2 

,HSP 1 

Y 

01253 

01253 

31 

00712 

00000 

X 

540. 

Y 

Y 

SP 

.MTBLKS 

,0 

Y 

01254 

01254 

37 

01247 

01231 

X 

541. 

V 

Y 

RJ 

,HSP5 

,HSP3 

Y 

01255 

01255 

11 

32000 

00716 

X 

542. 

Y 

Y 

TP 

,A 

.HSPBKT 

Y 

01256 

01256 

11 

01315 

00717 

X 

543. 

Y 

Y 

TP 

.HSPHD3 

,HSPBKT+1 

Y 

01257 

01257 

37 

01221 

01212 

X 

544. 

Y 

Y 

RJ 

,HSP2 

,HSP1 

Y 

01260 

01260 

11 

01271 

01106 

X 

545. 

Y 

Y 

TP 

,HSPK6 

.HSPBLK+100, 

01261 

01261 

45 

00000 

01223 

X 

546, 

Y 

Y 

MJ 

V 

,HSP2A 

Y 

01262 

01262 

01 

01010 

10101 

X 

547. 

, HSPK1 

Y 

B01 

,01010 

,10101 

Y 

01263 

01263 

00 

00000 

00777 

X 

548. 

, HSPK2 

Y 

B 

Y 

,777 

Y 

01264 

01264 

00 

00000 

77777 

X 

549. 

, HSPK3 

Y 

B 

V 

,77777 

Y 

01265 

01265 

11 

00716 

00716 

X 

550. 

, HSPK4 

Y 

TP 

.HSPBKT 

.HSPBLK-20, 

01266 

01266 

00 

00000 

01750 

X 

551. 

, HSPK5 

Y 

X 

Y 

,1000 

Y 

01267 

01267 

00 

00000 

00144 

X 

552. 

t 

t 

X 

Y 

,100 

Y 

01270 

01270 

00 

00000 

00012 

X 

553. 

» 

Y 

X 

Y 

,10 

Y 









01271 

01272 

01273 

01274 

01275 

01276 

01277 

01300 

01301 

01302 

01303 

01304 

01305 

01306 

01307 

01310 

01311 

01312 

£ 01313 

01314 
01315 


01271 

37 

60010 

01272 

02 

00646 

01273 

00 

00000 

01274 

00 

00000 

01275 

00 

00000 

01276 

00 

00000 

01277 

00 

00000 

01300 

67 

50342 

01301 

30 

01656 

01302 

51 

67663 

01303 

01 

46342 

01304 

54 

73010 

01305 

52 

51653 

01306 

51 

50010 

01307 

01 

50244 

01310 

01 

71515 

01311 

34 

50526 

01312 

01 

01010 

01313 

01 

01010 

01314 

01 

01010 

01315 

25 

46512 


10101 

X 

554 

30000 

X 

555 

00001 

X 

556 

00002 

X 

557 

00004 

X 

558 

00006 

X 

559 

00024 

X 

560 

65127 

X 

561 

72 554 

X 

562 

45030 

X 

563 

55424 

X 

564 

10137 

X 

565 

46634 

X 

566 

10101 

X 

567 

73001 

X 

568 

42765 

X 

569 

76665 

X 

570 

15301 

X 

571 

15001 

X 

572 

15201 

X 

573 

64565 

X 

574 


X 

575 


X 

576 


HSPK6 , B37 
HSPWR , B02 
HSP1V , 

HSP2V , 

HSP4V , 

HSP6V , 

HSP20V t 
HSPHD1, B67 
, B30 
, B51 
, B01 
, B54 
HSPHD2, B52 
, B51 
, B01 
, B01 
, B34 
, B01 
, B01 
, B01 
HSPHD3, B25 
BF , EQUALS 
, ENDSUB 


60010 ,10101 

00646 ,30000 

,1 
,2 
,4 
,6 


f 

,20 

50342 

,65127 

,01656 

,72554 

67663 

,45030 

,46342 

,55424 

73010 

,10137 

,51653 

,46634 

,50010 

,10101 

50244 

,73001 

,71515 

,42765 

,50526 

,76665 

01010 

,15301 

,01010 

,15001 

01010 

,15201 

46512 

,64565 

HSPHD3+1 

t 








B. Permanent Library Routines 


The Permanent Library consists of routines required by UNICODE to provide 
its Input/Output facilities, and the general exponentiation system. Three 
sections of the Master Tape are used to contain the routines and related 
information in positions most advantageous to the compiling procedure. 

The first such section is the Permanent Library Catalog containing the 
names of all routines and their associated UNICODE call words. This catalog 
is read from the Master Tape by the Dimension #2 Translator and is stored 
in the Combination List. It is then available throughout the Translation 
phase for recognition and proper handling of references to these routines. 

The second section of the Permanent Library appearing on the Master Tape 
is Op File I consisting of an item for each routine. This file gives all the 
information that is necessary in allocating storage to those routines used 
by the various segments of the Object Program. 

The third section is the collection of Permanent Library routines coded 
relative to address OlOOO. These routines are read from the Master Tape 
by the processor and modified according to the Object Program addresses given 
by the allocator. 
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Permanent Library Catalog 


0 

RE 

IA 

0 

LC72 30 
LC 

0 

24 

No words followinn 

1 

31 

46307 

25266 

FLEXPT 

2 

0 

0 

50002 


3 

32 

30505 

25171 

GENPOW 

4 

0 

0 

50012 


5 

70 

24543 

07252 

VAREXP 

6 

0 

0 

50022 


7 

46 

50777 

77777 

LN 

10 

0 

0 

50031 


11 

30 

72527 

77777 

EXP 

12 

0 

0 

50041 


13 

65 

53546 

67777 

SQRT 

14 

0 

0 

50051 


15 

31 

46662 

67066 

FLTCVT 

16 

0 

0 

50062 


17 

46 

34656 

65450 

LISTRN 

20 

0 

0 

50077 


21 

54 

30242 

75450 

READRN 

22 

0 

0 

50100 


23 

34 

50662 

67066 

INTCVT 

24 

0 

0 

50112 



CA 

LC25 
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Op File I for Permanent Library Routines 



RE 

PF72 30 




IA 

PF 



0 

0 

50002 

2 

FLEXPT 

1 

0 

0 

41 


2 

0 

50012 

5 

GENPOW 

3 

0 

0 

107 


4 

0 

50002 

0 


5 

0 

50022 

0 


6 

0 

50051 

0 


7 

0 

50022 

5 

VAREXP 

10 

0 

0 

113 


11 

0 

50002 

0 


12 

0 

50031 

0 


13 

0 

50041 

0 


14 

0 

50031 

3 

LN 

15 

0 

0 

67 


16 

0 

50002 

0 


17 

0 

50041 

3 

EXP 

20 

0 

0 

77 


21 

0 

50002 

0 


22 

0 

50051 

3 

SQRT 

23 

0 

0 

53 


24 

0 

50002 

0 


25 

0 

50062 

2 

FLTCVT 

26 

0 

0 

203 


27 

0 

50077 

2 

LISTRN 

30 

0 

0 

234 


31 

0 

50100 

2 

READRN 

32 

0 

0 

606 


33 

0 

50112 

2 

INTCVT 

34 

0 

0 

73 


35 

74 

74747 

47474 

End Sentinel 


CA 

PF36 
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Region Definitions for Permanent Library Loading 


RE 

TP 10 

50002 

nr 

1\L 

ntlt OAA 
l r%£.\j\j 

CAAlO 

RE 

VP370 

50022 

RE 

LN560 

50031 

RE 

EX750 

50041 

RE 

SQ1140 

50051 

DC 1 

tiu 

\Tr 1 QQA 

V V/ iUUV 

c;nnA9 

OVW*- 

RE 

WI1710 

50077 

RE 

NI2270 

50100 

RE 

Cl3230 

50112 

RE 

PT1000 

50002 

RE 

GP1000 

50012 

RE 

VE1000 

50022 

RE 

LG1000 

50031 

RE 

XP1000 

50041 

RE 

SR1000 

50051 

RE 

CV1000 

50062 

RE 

IW1000 

50077 

RE 

XE1147 


RE 

RV1157 


RE 

TZ1200 


RE 

GT210 


RE 

BI71004 


RE 

BF71005 


RE 

TN71003 


RE 

IN1000 

50100 

RE 

DR1012 


RE 

BM1101 


RE 

ST1131 


RE 

PS1146 


RE 

SC 12 33 
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RE MF1243 
RE TB1252 
RE EP1264 
RE GG1303 
RE CF1473 
RE NT1551 
RE XX1552 
RE CC1557 
RE FX71000 
RE BU610 
RE GT210 
RE PR77250 

RE IC1000 


50112 
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Flex-Print Routine (50002) 


Purpose 

To print out a stored sequence of Flex codes, with automatic 
carriage returns where required. 

Calling Sequence 


a 

TP [.(Parameter 1) 

PT3 

+1 

TP [.(Parameter 2) 

PT4 

+2 

RJ PT2 

FT 

+3 

Control returned 

here 


Parameter 1 is 00 - L - n, where L = initial loc. of stored 
Flex codes, and n = no. of words. The characters should be packed 
to the left, and filled in with zeros. 

Parameter 2 is 00 - x - x, where x = address of an index previously 
set to the desired number of characters per line. Each time a 
character is printed by this routine, this index is reduced, and when 
zero a c.r. is given and the index reset to 79^. 

Storage 

37g orders and constants 
2 erasable locations 
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Flex-Print Routine (50002) 


PT 



IA 

TP 




0 

50002 

45 

Call word; No. of lines prelude & 





routine 


0 

0 

31 

No. of lines for address modification 


0 

0 

6 

No. of unmodifiable constants 


0 

0 

2 

No. of inputs 


0 

0 

0 

No. of outputs 


31 

46307 

25266 

Name (FLEXPT) 

0 

MJ 

0 

PT5 


1 

RJ 

30000 

30000 


2 

MJ 

0 

[30000 

EXIT 

3 

fo 

30000 

30000 

Parameter; u = init. loc.; v = No. of words 

4 

IP 

30000 

30000 

Line index address, u & v = address 

5 

TP 

PT31 

PT37 

Zeroize index 

6 

TV 

PT3 

PT37 

Set it up 

7 

TU 

PT3 

PT14 

Location of 1st word 

10 

TU 

PT4 

PT22 \ 

- Set line index addresses 

11 

TV 

PT4 

PT24 J 

12 

IJ 

PT37 

PT14 

Countdown 

13 

MJ 

0 

PT2 


14 

TP 

[30000] 

Q 

Word for printing to Q 

15 

LQ 

Q 

6 


16 

PR 

0 

Q45 

Print one character 

17 

<?r 

PT32 

PT40 

Save it 

20 

21 

EJ 

EJ 

PT33 

PT34 

PT25) 

PT25J 

> Test for non-printing character 

22 

IJ 

[30000] 

PT25 

Car. ret. (if necessary) 

23 

PR 

0 

PT16 

24 

TP 

PT35 

[3000(3 Reset index 

25 

RS 

Q 

PT40 

Delete character already printed 

26 

ZJ 

PT15 

PT27 


27 

RA 

PT14 

PT36 

Modify 

30 

MJ 

0 

PT12 

and back 

31 

0 

0 

0 

Constant 

32 

0 

0 

77 


33 

0 

0 

47 


34 

0 

0 

57 


35 

0 

0 

117 

79 decimal 

36 

0 

1 

0 

Constant 

37 

CA 

TP45 


Erasable (number of words index) 

40 




Erasable (Temp, storage for printed 


digit code) 


71 



General Power Routine (50012) 


This routine is called from the Permanent Library as a result, of the 
appearance in the source program of an expression of the form X POW Y where Y 
is unknown during compilation. 

The routine tests the values of X and Y during the Object Program to 
determine what other routine, if any, of the Permanent Library is needed to 
evaluate the expression. For special cases of X and Y values the expression 
is evaluated within this routine. These include integral values for |y| <64; 
x = 0, y >0; x f- 0, y = 0. Other cases are handled by reference to the 
Variable Exponent or to the Square Root routines. 
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GP 


GENPOW (50012) X Y 



IA 

PW 




0 

50012 

126 



0 

0 

104 

No. of words for address modi 


0 

0 

14 

No. of unmodifiable constants 


0 

0 

2 



0 

0 

1 



32 

30505 

25171 

Name (GENPOW) 

0 

MJ 

0 

GP6 

Entry 

1 

RJ 

30000 

30000 


2 

MJ 

0 

30000 

Exit 

3 

0 

0 

0 

Out 

4 

0 

0 

0 

In X (base) 

5 

0 

0 

0 

In Y (exponent) 

6 

7 

SP 

ZJ 

GP4 

GP25 

o 1 

GP10 J 

X 

II 

o 

10 

EJ 

GP5 

GP17 

Y = 0? 

11 

TJ 

GP5 

GP22 

Y > 0? 

12 

TP 

GP70 

50002 ^ 



10 

0 

3 

RUN ERROR 2 (X = 0, Y< 0) 

13 

TP 

GP71 

50002 

> 


10 

0 

4 j 


14 

TP 

GP73 

GP106 

Set index 

15 

RJ 

50002 

50002 



10 

2 

0 


16 

MS 

0 

GP2 


17 

TP 

GP67 

50002^ 



10 

0 

3 1 

! RUN ERROR 1 (X = 0, Y = 0) 

20 

TP 

GP71 

50002 

r 


10 

0 

4 , 

i 

21 

MJ 

0 

GP14 


22 

TP 

A 

0 1 

[• X=0, Y>0=*>X Y =0 

23 

TP 

A 

GP3 J 

24 

MJ 

0 

GP2 


25 

TM 

GP5 

A 1 


26 

ZJ 

GP32 

GP27 1 

l X^O, Y=0=>X=1 

27 

TP 

GP76 

Q 


30 

TP 

0 

GP3 J 


31 

MJ 

0 

GP2 


32 

EJ 

GP75 

GP40 

IYI = 1/2? 

33 

TJ 

GP77 

GP43 

IYI < 64 ? 

34 

TP 

GP4 

50022^ 



10 

0 

4 j 


35 

TP 

GP5 

50022 

> Use VAREXP (50022) 


10 

0 

5 

36 

RJ 

50022 

50022 



10 

2 

25 > 



73 



37 

MJ 

0 

GP2 


40 

TP 

GP4 

50051 



10 

0 

4 , 

> Use SORT (50051) 

41 

RJ 

50051 

50051 



10 

2 

0 


42 

MJ 

0 

GP62 


43 

LT 

10011 

0 

Mantissa of lYl ->-Q35...9 

44 

LT 

0 

A 

Characteristic + 128 — > A 

45 

SS 

GP74 

0 

Less bias 

46 

SJ 

GP34 

GP47 

If characteristic< 0 use VAREXP 

47 

TV 

A 

GP50 ' 

^ Shift mantissa by characteristic 

50 

SP 

Q 

30000. 

51 

LT 

0 

Q 

Integral part — >Q 

52 

53 

SP 

ZJ 

A 

GP34 

0 

GP54 , 

^ If |Y| non-integral use VAREXP 

54 

SP 

0 

0 

1 t irl . j. . . . i __ n __ I \r 1 t 

55 

SS 

GP72 

17 . 

> in integral su lurm m -i 

56 

TU 

A 

GP60 


57 

TP 

GP4 

Q 

O’ 

t 

X 

60 

61 

RP 

FM 

30000 

Q 

GP62 ' 
GP4 

} Form X lYl in Q 

62 

TP 

GP5 

A 


63 

SJ 

GP64 

GP65 

Y < 0? 

64 

FD 

GP76 

0 

Form reciprocal of (Q) if Y < 0 

65 

TP 

0 

GP3 

Store result in output line 

66 

MJ 

0 

GP2 


67 

0 

GP100 

3 

Parameter for RUN ERROR 1 

70 

0 

GP103 

3 

Parameter for RUN ERROR 2 

71 

0 

GP106 

GP106 

Index address 

72 

0 

0 

1 

1 

73 

0 

0 

117 

79 

74 

0 

0 

200 

128 

75 

20 

4000 

0 

1/2 F.P. 

76 

20 

14000 

0 

1 F.P. 

77 

20 

74000 

0 

64 F.P. 

100 

45 

45471 

23406 

CR CR t R U N 

101 

04 

20121 

20312 

A E R R 0 R 

102 

04 

57524 

20445 

A ^ 1 . A CR 

103 

45 

45471 

23406 

CR CR t R U N 

104 

04 

20121 

20312 

A E R R 0 R 

105 

04 

57744 

20445 

A \ 2 . A CR 

106 

CA 

PW126 


Temporary 
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Variable Exponent Routine (50022) 


This routine is referenced directly from the Object Program equations as 
a result of the appearance in the Source Program of expressions X POW Y or 

3 

X , where Y and a are known during compilation, but are neither integers with 
magnitude less than 64, nor are they equal in magnitude to 1/2. 

As stated previously, this routine may also be referenced by the General 
Power routine as a result of the above determinations during the Object Program. 

The routine references the Natural Logarithm routine and the Exponential 
routine to evaluate the expression. 
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VE 


IA VP 


VAREXP (50022) X 



r\ 

\s 

9 

1 W 

JL. wu 

Pur* No. of lines 


0 

0 

107 

No. of words for 


0 

0 

16 

No. of unmodifial 


0 

0 

2 



0 

0 

1 



70 

24543 

07252 

Name (VAREXP) 

0 

MJ 

0 

VE6 

Entry 

1 

RJ 

30000 

30000 


2 

MJ 

0 

30000 

Exit 

3 

0 

0 

0 

Out 

4 

0 

0 

0 

In X (base) 

5 

0 

0 

0 

In Y (exponent) 

6 

SP 

VE4 

0 1 


7 

ZJ 

VE25 

VE10 J 

r x = o? 

10 

EJ 

VE5 

VE17 

Y = 0? 

11 

TJ 

VE5 

VE22 

Y > 0? 

12 

TP 

VE71 

50002 ^ 



10 

0 

3 

y RUN ERROR 2 (X 

13 

TP 

VE73 

50002 


10 

0 

4 > 


14 

TP 

VE76 

VE112 

Set index 

15 

RJ 

50002 

50002 



10 

2 

0 


16 

MS 

0 

VE2 


17 

TP 

VE70 

50002> 



10 

0 

3 

RUN ERROR 1 (X 

20 

TP 

VE73 

50002 

> 


10 

0 

4 J 


21 

MJ 

0 

VE14 


22 

TP 

A 

0 1 


23 

TP 

A 

VE3 J 

f X = 0, Y> 0 » 

24 

MJ 

0 

VE2 



Y 

X = 0 


76 



25 

TM 

VE5 

A ) 

26 

ZJ 

VE32 

VE27 j 

27 

TP 

VE100 

0 ! 

30 

TP 

0 

VE3 j 

31 

MJ 

0 

VE2 

32 

LT 

10011 

0 

33 

LT 

0 

A 

34 

SS 

VE77 

0 

35 

SJ 

VE45 

VE36 

36 

TJ 

VE75 

VE40 

37 

MJ 

0 

VE52 

40 

TV 

A 

VE41 

41 

SP 

0 

30000 

42 

LT 

0 

0 

43 

SP 

A 

0 ] 

44 

ZJ 

VE45 

VE53 J 

45 

TP 

VE4 

A \ 

46 

SJ 

VE47 

VE52 J 

47 

TP 

VE72 

50002^ 


10 

0 

3 

50 

TP 

VE73 

50002 ( 


10 

0 

4 J 

51 

MJ 

0 

VE14 

52 

LT 

0 

Q 

53 

QT 

VE74 

VE3 

54 

TM 

VE4 

5003l) 


10 

0 

4 

55 

RJ 

50031 

50031 


10 

2 

0 J 

56 

FM 

Q 

VE5 

57 

TP 

0 

5004 


10 

0 

4 l 

60 

RJ 

50041 

50041 f 


10 

2 

0 J 

61 

TP 

VE4 

A \ 

62 

SJ 

VE63 

VE66 J 

63 

SP 

VE3 

0 1 

64 

ZJ 

VE65 

VE66 J 

65 

TN 

0 

0 

66 

TP 

Q 

VE3 

67 

MJ 

0 

VE2 

70 

0 

VE101 

3 

71 

0 

VE104 

3 

72 

0 

VE107 

3 

73 

0 

VE112 

VE112 

74 

0 

0 

1 

75 

0 

0 

34 

76 

0 

0 

117 


Is IY1 = 0? 

X t 0, IY | = 0 => X Y = I 

Mantissa of |Y| “■^Q 35"**9 

128 4- characteristic of |Y| —> A 

Less bias 

If characteristic of |Y| < 0, Y is 
non-integral 

Characteristic > 28? If so |Y| is even 
integer 

0< characteristic of lYl<27 

Integral part to Q 
Is IYI an integer? 

Y non-integral, is X > 0? 


RUN ERROR 3 (X< 0, Y non-integral) 

Set (Q) = 0 if Y is even integer or 
non-integral 

If Y is odd integer set output line to 
1 indicator 

Compute LN IXl in Q 
Form Y • LN |X| 

Compute e Y*LNlXl = | X | Y Q 


Is X<0? 

Is Y an odd integer? 

X<0 and Y is odd integer, so form 
- 1X1 Y -»Q 

Parameter for RUN ERROR 1 
Parameter for RUN ERROR 2 
Parameter for RUN ERROR 3 
Index address 
1 

28 

79 


77 



77 

0 

0 

200 

128 





100 

20 

14000 

0 

1 F. 

P - A 




101 

45 

45471 

23406 

CR 

CR f 

R 

U 

N 

102 

04 

20121 

20312 

A 

E R 

R 

0 

R 

103 

04 

r- p a 

0 1064 

20445 

A 

v 1 

# 

A 

ro 

WIl 

104 

45 

45471 

23406 

CR 

CR * 

R 

U 

N 

105 

04 

20121 

20312 

A 

E R 

R 

0 

R 

106 

04 

57744 

20445 

A 

\ 2 

# 

A 

CR 

107 

45 

45471 

23406 

CR 

CR f 

R 

U 

N 

110 

04 

20121 

20312 

A 

E R 

R 

0 

R 

111 

04 

57704 

20445 

A 

J, 3 

# 

A 

CR 

112 

CA 

VP 133 


Temporary 
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Natural Logarithm Routine (50031) 


This routine is adapted from the USE subroutine, WFMR03, Natural 
Logarithm - Single Precision Floating Point. 

Given x, this routine computes y(x) =!i Log e x 

I 1-27 

with accuracy: |y(x) - Log e x I i 2 

-129 127 

where x ranges: 2 £ x < 2 

For numerical method see Rand Sheet 42. 


*Approximation. 
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Natural Logarithm Routine (50031) 


IA LN 



0 

50031 

77 

Cw; No. of lines on tape 


0 

0 

53 

No. of lines for address modification 


0 

0 

16 

No. of unmodifiable constants 


0 

0 

1 

No. of inputs 


0 

0 

1 

No. of outputs 


46 

50010 

10101 

N ame (LN) 

LGO 

MJ 

0 

LG5 

Entry 

1 

RJ 

30000 

30000 


2 

MJ 

0 

30000 

Exit 

3 

0 

0 

0 

Out 

4 

0 

0 

0 

In x 

5 

LQ 

LG 4 

A 


6 

TJ 

LG57 

LG40 

x > 0? If not , alarm 

7 

UP 

Q 

A 

Unpack x 

10 

11 

SS 

LT 

LG55 

0 

11 

LG3 . 

^ Form and store C-l 

12 

SP 

0 

7 1 

| 

13 

AT 

LG54 

Q 

1 Form and store y = (2u - Root 2)/ 

14 

SS 

LG56 

42 

j (2u + Root 2) scaled 34 

15 

DV 

Q 

LG66 

| 

16 

17 

MP 

LT 

0 

2 

Q 1 
LG4 j 

^ Form and store y scaled 34 

20 

TP 

LG47 

LG24 > 

Form (LN2 u -2)/y - (LN 2)/2 —>Q 

21 

TP 

LG50 

Q 

scaled 35 

22 

MP 

Q 

LG4 

l 

23 

LT 

2 

A 

> 

24 

0 

30000 

30000 


25 

RA 

LG24 

LG57 J 


26 

TJ 

LG13 

LG22 


27 

LA 

LG66 

A1 1 

1 Form 2Y + (LN2)/2 scaled 69 —> A 

30 

SA 

LG60 

43 J 

f 

31 

MA 

Q 

LE66 1 

^ Form LN2 U scaled 33—>A 

32 

LT 

0 

A J 

33 

MA 

LG3 

LG60 1 

^ Form and store (C-1)LN2 + LN2 U , scaled 28 

34 

LT 

37 

LG3 J 

35 

NP 

LG3 

LG61 1 

1 Form and store LN xin floating point 

36 

TP 

LG3 

0 

r 

37 

MJ 

0 

LG2 

Exit 

40 

TP 

LG62 

LG66 

Set index 

41 

TP 

LG45 

50002N 



10 

0 

3 


42 

TP 

LG46 

50002 

l RUN ERROR 4 (LN x, x < 0) 


10 

0 

4 

43 

RJ 

50002 

50002 



10 

2 

0 J 
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Parameter for RUN ERROR 4 
Index address 
Dummy command 


44 

MS 

0 

LG2 

45 

0 

LG63 

3 

46 

0 

LG66 

LG66 

47 

AT 

LG51 

0 

50 

11 

50353 

45377 

51 

14 

62377 

45540 

52 

25 

25255 

4 7723 

53 

77 

77777 

77445 

54 

13 

24047 

46320 

55 

20 

10000 

0 

56 

26 

50117 

14640 

57 

0 

1 

0 

60 

05 

42710 

2 7760 

61 

17 

70000 

0 

62 

0 

0 

117 

63 

45 

45471 

23406 

64 

04 

20121 

20312 

65 

04 

57644 

20445 

66 

CA 

LN77 



Rand coefficients scaled 35 


Root 2 scaled 33 
Bias for input 
2 Root 2, scaled 33 

LN2, scaled 33 
Bias for output 
Print index 
CR CR f R U N 
A ERROR 
A j 4 . A CR 

Temporary 
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Exponential Routine (50041) 


This routine is adapted from the USE subroutine, WFMR06, Exponential - 
Single Precision Floating Point. 

Given x, this routine computes y(x) = EXP* x 

-27 

with accuracy: y(x) - EXP x < 2 

EXP x 

where x ranges: -129 log e 2 < x < 127 log e 2 

For numerical method, see Ramo-Wooldridge EXP-2 in ERA Central Exchange 
Letter No. 8. 


*Approximation 
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Exponential Routine (50041) 



IA 

EX 




0 

50041 

107 

Cw; no. of lines on tape 


0 

0 

56 

No. of lines for address modification 


0 

0 

23 

No. of unmodifiable constants 


0 

0 

1 

No. of inputs 


0 

0 

1 

No. of outputs 


30 

72520 

10101 

Name (EXP) 

XPO 

MJ 

0 

XP5 

Entry 

1 

RJ 

30000 

30000 


2 

MJ 

0 

30000 

Exit 

3 

0 

0 

0 

Out 

4 

0 

0 

0 

In X 

5 

TP 

XP4 

XP76 

| Unpack X 

6 

UP 

XP76 

A 

7 

10 

LT 

AT 

11 

XP63 

A 

Q 

| Form C+8 in A and Q 

11 

TJ 

XP64 

XP17 

If C > 34, X is out of range 

12 

TP 

XP72 

XP76 

Set index 

13 

TP 

XP51 

50002) 



10 

0 

3 


14 

TP 

XP52 

50002 

RUN ERROR 5 (X is out of range) 


10 

0 

4 

> 

15 

RJ 

50002 

50002 


10 

2 

0 


16 

MS 

0 

XP2 J 


17 

SJ 

XP20 

XP22 

1 If C+8 < 0, form C+44 in A 

20 

SA 

XP65 

0 

r 

21 

SJ 

XP25 

XP22 

If C+44 < 0, EXP X = 1 

22 

TV 

A 

XP23 


23 

LA 

XP76 

30000" 

I 

24 

QJ 

XP25 

XP26 

> Set X in A scaled 35 

25 

LT 

0 

A 

f 

26 

SA 

XP66 

0 

X = K LN2 + R where R < |LN2/2 | 

27 

DV 

XP67 

XP76 


30 

ST 

XP66 

XP3 


31 

32 

TU 

TP 

XP50 

XP53 

XP35"1 

Q 

Compute EXP R scaled 34 

33 

MP 

Q 

XP3 


34 

LT 

1 

A 

> 

35 

AT 

30000 

Q 

36 

RA 

XP35 

XP70 


37 

TJ 

XP10 

XP33 


40 

NP 

Q 

XP71 

Pack and adjust characteristic of EXP X 

41 

LA 

XP76 

A33 


42 

AT 

Q 

XP3 


43 

SJ 

XP44 

XP45 1 

1 If characteristic underflow occurs, 

44 

RS 

XP3 

A J 

1 EXP X is zero 

45 

TP 

XP3 

Q 


46 

EJ 

A 

XP2 

EXP X out of range? 

47 

MJ 

0 

XP12 

Yes, so ALARM 

50 

0 

XP54 

0 

Set-up 
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51 

0 

XP73 

3 

Parameter for RUN ERROR Print 

52 

0 

XP76 

XP76 

Index address 

53 

0 

150 

35404 


54 

0 

1333 

23520 


55 

0 

10421 

01327 


56 

0 

52525 

06225 


57 

02 

52525 

25343 


60 

10 

0 

271 


61 

17 

77777 

77777 


62 

20 

0 

0 


63 

77 

77777 

77607 

-120 

64 

0 

0 

53 

43 

65 

0 

0 

44 

36 

66 

13 

5620 

57737 

(LN 2)/2 scaled 35 

67 

26 

13441 

37677 

LN 2 scaled 35 

70 

0 

1 

0 


71 

17 

10000 

0 


72 

0 

0 

117 


73 

45 

45471 

23406 

CR CR f R U N 

74 

04 

20121 

20312 

A E R R 0 R 

75 

04 

57624 

20445 

^ 5 . A CR 

76 

CA 

EX107 


Temporary 



Square Root Routine (50051) 


This routine is adapted from the USE subroutine, WFMR04, Square Root 
Single Precision Floating Point. 

Given x, this routine computes y (x) = Jx * 


with accuracy: 


y(x) ~-J~x 


< 2 


-27 




127 

where x ranges: 0 5 x < 2 

The numerical method is by Newton-Raphson approximation. 


^Approximation 
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Square Root Routine (50051) 



IA 

so 




0 

50051 

63 

Cw; no. of words on tape 


0 

0 

50 

No. of lines for address modification 


0 

0 

5 

No. of unmodifiable constants 


0 

0 

1 

No. of inputs 


0 

0 

1 

No. of outputs 


65 

53546 

60101 

SQRT 

SRO 

MJ 

0 

SR5 

Entry 

1 

RJ 

30000 

30000 


2 

MJ 

0 

30000 

Exit 

3 

0 

0 

0 

Out 

4 

0 

0 

0 

In X 

5 

TP 

Sk4 

A71 


6 

SJ 

SR7 

SR14 


7 

TP 

SR45 

SR52 

Set index 

10 

TP 

SR43 

50002^ 



10 

0 

3 


11 

TP 

SR44 

50002 

v RUN ERROR 6 (SQRT X or X<0) 


10 

0 

4 

r 

12 

RJ 

50002 

50002 



10 

2 

0 > 


13 

MS 

0 

SR2 


14 

LT 

10 

SR4 1 

If characteristic is odd (even), form 

15 

TP 

A 

o 1 

„ and store y = 2u (u), scaled 35 

16 

QJ 

SR17 

SR20 1 

> 

17 

SA 

A 

0 J 


20 

21 

TP 

ZJ 

A 

SR22 

SR3 ) 
SR2 j 

> If X = 0, SQRT X = 0 

22 

SP 

A 

0 1 


23 

SA 

SR46 

37 

> First approximation is (y+(2 Root 2-1)/ 

24 

LT 

0 

SR52 J 

ty 2 scaled 31 

25 

SP 

SR3 

33 A 

26 

DV 

SR52 

A 

Newton-Raphson Iteration 

27 

AT 

SR52 

SR52 

30 

SP 

SR3 

35 


31 

DV 

SR52 

A 

> 

32 

AT 

SR52 

SR52 


33 

SP 

SR3 

37 


34 

DV 

SR52 

A 


35 

AT 

SR52 

SR3 ^ 


36 

37 

SP 

SA 

SR4 

SR5 

0 1 
33 J 

^ Form characteristic of Root X 

40 

NP 

SR3 

A 1 

[ 

41 

TP 

SR3 

0 

> Pack and exit 

42 

MJ 

0 

SR2 

1 

43 

0 

SR47 

3 " 

Parameter for RUN ERROR 6 

44 

0 

SR52 

SR52 

Index address 

45 

0 

0 

117 


46 

35 

20236 

31500 

(2 Root 2-l)/2, scaled 35 
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47 

45 

45471 

23406 

CR CR f R 

U 

N 

50 

04 

20121 

20312 

A E R R 

0 

R 

51 

04 

57664 

20445 

A | 6 . 

A 

CR 

52 

CA 

SQ63 


Temporary 
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Floating-Point Conversion & Print-Out (50062) 


To convert to decimal, and print out on-line, a binary floating¬ 
point number, with a carriage return depending on the contents of a 
specified index. 

Calling Sequence 

a TP L(Number) CV3 

+1 TP L(Parameter) CV4 

+2 RJ CV2 CV 

+3 Control returned here. 

The parameter is the same as "Parameter 2" described in the 
Flex-print routine. 

Storage 

176q orders and constants. 

5 erasable locations. 
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Floating Point to Decimal Print Routine (50062) 



IA 

VC 




0 

50062 

204 

Call word; no. of lines prelude + routi 


0 

0 

142 

No. of lines for address modification 


0 

0 

34 

No. of unmodifiable constants 


0 

0 

2 

No. of inputs 


0 

0 

0 

No. of outputs 


31 

46662 

67066 

Name (FLTCVT) 

cvo 

MJ 

0 

CV5 

Entrance 

1 

RJ 

30000 

30000 


2 

MJ 

0 

[30000 

1 Exit 

3 

Co 

30000 

3000<! 

Quantity for conversion 

4 

[0 

30000 

30000 

Line index address 

5 

PR 

0 

CV10 

Shift down 

6 

7 

TU 

TV 

CV4 

CV4 

CV134' 

CV136. 

| Set up line index address 

10 

TP 

CV3 

A57 

Quantity —» A 

11 

ZJ 

CV15 

CV12 

Zero ? 

12 

PR 

0 

CV163 

Yes Print Zero 

13 

RJ 

CV137 

CV134 

Go count 

14 

MJ 

0 

CV2 

And out 

15 

TP 

CV142 

CV176 

Zeroize dec. exp. store 

16 

TM 

A 

Q56 

|q| —► o 

17 

SJ 

CV20 

CV22 

Negative? 

20 

PR 

0 

CV16 

Yes, print - sign 

21 

RJ 

CV137 

CV134 

Count 

22 

SP 

Q 

0 

|q|— 

23 

TJ 

CV146 

CV32 

Test v. MIN. Jump if too small 

24 

TJ 

CV151 

CV36 

Test v. MAX, + 1. Jump if O.K. 

25 

FD 

A 

CV150 

Too big, divide by 10 

26 

RA 

CV176 

CV162 

Increase dec. exp. by 1 

27 

SP 

0 

0 


30 

TJ 

CV150 

CV36 

Test v. 10. If < , then O.K. 

31 

MJ 

0 

CV25 


32 

FM 

A 

CV150 

Too small, so multiply by 10 

33 

RS 

CV176 

CV162 

Decrease exponent by 1 

34 

SP 

Q 

0 


35 

TJ 

CV147 

CV32 

If < 1, back again 

36 

TP 

A 

CV177 

O.K., in scale now. Send to erasable 

37 

UP 

CV177 

A42 

Characteristic—»A 

40 

ss 

CV145 

55 

C - 119—*A V 

41 

TV 

A 

CV42 


42 

SP 

CV177 

Co] 

Position point between A^, A^ 

43 

TP 

A 

CV177 

Save fractional part 

44 

LT 

0 

A4 

Integral part—>Ag 

8—>index, as 9 digits wanted (in ALL) 

45 

TP 

CV143 

CV200 

46 

ZJ 

CV52 

CV47 

Integral part zero? 

47 

PR 

0 

CV163 

Yes, so print 

50 

RJ 

CV137 

CV134 

Count 

51 

MJ 

0 

CV57 

Jump to process fractional part 
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52 

TU 

CV140 

CV116 

Non-zero integral part. Start < 





by 10 8 

53 

TP 

CV143 

CV201 

9 powers of 10 to be used ( 8 

54 

RJ 

CV127 

cm3 

Go convert 

55 

TP 

CV200 

A20 \ 

Now if digit index -ve, no fra 

56 

n t 

OJ 

r* t rO 

r*irr \ 

J 

part wanted and if so, out 

57 

PR 

0 

CV37 

Otherwise, print decimal point 

60 

RJ 

CV137 

CV134 

Go Count 

61 

SP 

CV177 

2 

4f 

62 

ZJ 

CV63 

CV72 

Zero? 

63 

SA 

CV177 

1 

No, then digit formed in Al 

64 

TP 

A 

CV177 

Preserve remainder 

65 

LT 

0 

A45 

Digit to Ar 

66 

AT 

CV12 

CV67 

Form print order 

67 

B 

30000 

30000] 

*T r\ 
t U 

RJ 

PTfi O -7 
OV id 1 

r*\T ■» O A 
v^v XOH 

r A ,.«+ 

V-/ UU1I 1, 

71 

IJ 

CV200 

CV61 

Back for 9 digits in all 

72 

TP 

CV176 

A 

How about decimal exponent? 

73 

ZJ 

CV74 

CV2 

If zero, out. 

74 

PR 

0 

CV44 

Print space 

75 

RJ 

CV137 

CV134 

Count 

76 

PR 

0 

CV55 

Print E 

77 

RJ 

CV137 

CV134 

Count 

100 

PR 

0 

CV44 

Print space 

101 

RJ 

CV137 

CV134 

Count 

102 

TP 

CV176 

A 

Exp— *-A again 

103 

SJ 

CV104 

CV107 

Sign? 

104 

PR 

0 

CV16 

Negative, so print 

105 

RJ 

CV137 

CV134 

Count 

106 

TM 

CV176 

A 

1 exp|— >A 

Start dividing with 10 1 

107 

TU 

CV141 

CV116 

110 

TP 

CV162 

CV201 

2 powers of 10 (no matter about 





digits printed) 

111 

RJ 

CV127 

CV113 

Convert exponent 

112 

MJ 

0 

CV2 

And out. 

Integer 
conver¬ 
sion 113 

TP 

A 

CV202 

Int—^working store 

114 

TP 

CV132 

CV122 

Set switch to suppress leading 

115 

SP 

CV202 

0 

Prepare to divide 

116 

DV 

[30000] 

0 

Divide by 10° 

117 

TP 

A 

CV202 

Save remainder 

120 

RA 

CV116 

CV175 

Modify divisor address 

121 

SP 

0 

0 _ 

Examine quotient 

ZJ • AT 

122 

B) 

30000 

3000Q] 

123 

[0 

30000 

3000(3 

PR 0 

124 

RJ 

CV137 

CV134 

Count across line 

125 

RS 

CV200 

CV162 

Count 1 output digit 

126 

I J 

CV201 

CV115 

Count 1 power 10 

127 

MJ 

0 

[30000] 

Exit 


CV123 
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130 

TP 

CV133 

CV122 \ 

Set 

switch to commence printing 

131 

MJ 

0 

CV122j 

132 

ZJ 

CV130 

CV126\ 



133 

AT 

CV12 

CV123J 

instructional constants 

134 

IJ 

[30000] 

CV137 

Count down on line index 

135 

PR 

0 

CV65 

Carriage return 

136 

TP 

CV144 | 

jJOOOQj 

Reset index 

137 

MJ 

o 

3000(3 

And 

OUt Q 

ress of 10. 

140 

0 

CV152 

0 

Add 

141 

0 

CV161 

0 

Address of 10 

142 

0 

0 

0 

Zero 

143 

0 

0 

10 

8 


144 

0 

0 

117 

79 


145 

16 

70000 

0 

119 

in ch. field 

146 

DE 

1.0 A -1AF 

Min. 

147 

DE 

1.0A0AF 

i 


150 

DE 

1.0 A 1 A F 

10 


151 

DE 

1.0 A 9 a F 

Max 

. +1 

152 

0 

5753 

60400 

10® 


153 

0 

461 

13200 

10 I 


154 

0 

36 

41100 

io£ 


155 

0 

3 

03240 

105 


156 

0 

0 

23420 

10 4 


157 

0 

0 

1750 

103 


160 

0 

0 

144 

10 2 


161 

0 

0 

12 

10 1 


162 

0 

0 

1 

10° 


163 

0 

0 

37 

0> \ 


164 

0 

0 

52 

1 


165 

0 

0 

74 

2 


166 

0 

0 

70 

3 


167 

0 

0 

64 

4 

^ Flex codes 

170 

0 

0 

62 

5 1 

171 

0 

0 

66 

6 1 


172 

0 

0 

72 

7 


173 

0 

0 

60 

8 


174 

0 

0 

33 



175 

0 

1 

0 


176 

177 

CA 

VC204 


Dec. exponent 1 Worklng 
Fractional part J 
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"Inner” List Routine (50077) 


Purpose 


Either ; - To convert a binary floating-point number to decimal 
XS3 form, and insert in buffer 


Or: 


Or: 


- To convert a binary fixed-point number to decimal 
XS3 form, and insert in buffer 


- To test buffer for contents, and if anything there. 

to dump buffer onto tape, clearing out buffer afterwards. 


Calling Sequence 

1) To empty buffer onto tape ( only after some other usage) 

a RJ IW3 IW2 

+1 *— Control returned here —► 

2) To write a floating-point number (n) 

a TP L(n) A 

+1 RJ IW3 IW 

+2 <— Control returned here — 

3) To write a fixed-point number (i) 

a TP L(i) A 

+1 RJ IW3 IW1 

+2 <—Control returned here —> 


Initialization 

Before the first usage of this routine, we must have: 

TV BI IW121 

where BI V holds the address in the buffer of the first word to be written into. 
Each word in binary, when converted, occupies four words in the List buffer. 
Each List sentence will use this routine from 1 to 5 times, each time it is 
referenced. After the initializing order above, words will be sequentially 
written in the buffer (thus occupying, at most, one blockette). After all 
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such references in one List sentence coding, we must increment BI (the buffer 
index) so that the next reference starts in the next blockette (i.e., - next 
line) at the correct point. 

For 1 variable, increment BI by 4 
For 2-5 variables, increment BI by 20^ 

When this has been done, test the index to see if the buffer needs to 
be emptied. (Test with BF165, where BF is initial address of buffer). After 
any emptying, reset BI, in the case of 2 to 4 variables, in order to space 
the XS3 correctly in the middle of the paper. 

For 2 variables, increment BI by 6 

For 3 variables, increment BI by 4 

For 4 variables, increment BI by 2 

For 1 and 5 variables, writing starts at the left side of the paper. 

In addition, fixed location TN should hold the current tape number. 
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Floating-Point Conversion 


/Entry \ 

/ for \ 

/ Floating 

>t. Conversi 


Clear 24 Digit 
Code Storages, 1 
Sign Code Storage, 
1 Exponent Storage 



Put Point in 
12th Digit 


Multiply 
Number by 10 

—^ 

Decrease 
Exponent 
bv 1 


_> 

, 


Is Number 
Zero? 


Put Zero in 
11th Digit Place 


Is Number 
Negative? 


Yes Put Negative 
->Code in Indi¬ 
cator 


_ X .. 

Take Absolute 
Magnitude of 
Number 


f Is 1 > 

> Number?j 




Is Integral 
Part Zero? 


Put Zero Code in 
11th Digit 
Position 



Is . 1 > 
Number? 


1 Billion 
Number? 






















sO 

Oi 



Flow Charts for Inner List (Cont.) 














sO 


Flow Charts for Inner List (Cont.) 







/Clear-V- 

/ ing > 

Juffer Entr 


Reset Initial 
Buffer Loading 
Address to First 


Packing of Codes 


Set Up Index for 
4 Words 


Initialize Masking 
Instruction to 
Operate on First 
Line of Temporaries 



Up Address of 
Packing Instruc¬ 
tion so next Code 
Will Come From 
Next Address 


Pack a Temporary 
with an Excess- 
Three Code Ob¬ 
tained from Digit 
Storage 


Has a Word A No 
Been Completed?) “ 


Have 4 Words' 
been Stored? 


Increase Storing 
Address for Next 


Store Word 
in Buffer 














Inner List Routine (50077) 



0 

L46 


IW 0 MJ 

1 MJ 

2 MJ 

3 MJ 

4 RP 

5 TP 

6 TP 

7 ZJ 

10 TP 

11 MJ 

12 SJ 

13 TP 

14 TM 

15 TJ 

16 TJ 

17 FD 

20 RA 

21 SP 

22 TJ 

23 MJ 

24 FM 

25 RS 

26 SP 

27 TJ 

30 TP 

31 UP 

32 SS 

33 TV 

34 SP 

35 TP 

36 LT 

37 TP 

40 ZJ 

41 TP 

42 TP 

43 MJ 

44 TV 

45 RJ 

46 TV 

47 TP 

50 SJ 

51 TV 


WI 


50077 

206 

0 

157 

0 

21 

77777 

77775 

0 

0 

34656 

65450 

0 

IW4 

0 

IW101 

0 

IW125 

0 

30000 

10032 

IW6 

RV 

TZ 

RV7 

TZ13 

I Wl2 

IW10 

RV3 

TZ12 

0 

IW111 

IW13 

IW15 

RV2 

TZ30 

A 

A 

RV17 

IW24 

RV20 

IW30 

A 

RV16 

TZ31 

RV1 

Q 

0 

RV16 

IW30 

0 

IW17 

A 

RV16 

TZ31 

RV1 

Q 

0 

RV15 

IW24 

A 

TZ33 

TZ33 

A 

RV13 

55 

A 

IW34 

TZ33 

30000 

A 

TZ33 ‘ 

0 

A 

RV5 

TZ32 

IW44 

IW41 

RV3 

TZ12 

TZ30 

TZ11 

0 

IW51 

IW41 

IW143 

IW146 

IW137 

IW143 

IW47 

TZ30 

30000 

IW111 

IW51 

XE7 

IW56 


} 


u is call word 

v is number of words in routine plus prelude 
Number of lines for address modification 
Number of unmodifiable constants 
Number inputs (-2 for Processor) 

Number outputs 
Name (LISTRN) 

Entry for floating-point conversion 
Entry for fixed-point conversion 
Entry for buffer emptying 
Exit 

Clear 24 digit code stores, one sign 
code store, one exponent store 
Insert point code 
Quantity zero? 

Yes, insert zero code 
Go pack 

Non-zero, test sign 
Negative, so note 

Test v. Min., jump if too small 
Test v. Max. +1, jump if O.K. 

Too big, divide by 10 
Increase exponent by 1 

If now < 10.0, O.K. 

Otherwise, divide again 
Too small, multiply by 10 
Decrease exponent by 1 

If > 1.0, O.K., otherwise back 
Now in range 
Biased char. —>Aqj 

Position binary point between 
A^ and A R 

Save fractional part 
Integral part to A R 
Set index to 8 
Or is integral part zero? 

Yes, insert zero code 

Place sign in position 

Go process fractional part 

Units position is 11th digit code store 

Go convert integral part 

Find sign position 

And insert it 

If A<0, no fractional digits (or exponent) 
1st fractional position is 13th digit 
code store 
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Fixed- 
Point 
Con¬ 
version 


Packing 

of 

Codes 


Clear 

Buffer 


52 

SP 

TZ33 

2 



53 

ZJ 

IW54 

IW61 



54 

SA 

TZ33 

1 



55 

LT 

44 

TZ33 



56 

AT 

RV3 

30000 

Form and 

> Fractional loop 

57 

RA 

IW56 

RV1 

store code 


60 

IJ 

TZ32 

IW52 

j 

1 

61 

TP 

TZ31 

A 

Now process decimal exponent 

62 

ZJ 

IW63 

IW111 



63 

TV 

IW56 

IW64 

Find address for E 

64 

TP 

RV10 

30000 

Store E code 


65 

TP 

RV 

TZ30 

Clear sign code temp, store 

66 

SJ 

IW67 

IW70 1 

^ Note negative 

sign if wanted 

67 

TP 

RV2 

TZ30 J 

70 

SP 

IW64 

0 1 

I Units position of decimal exponent 

71 

SA 

RV3 

o ; 

> is 3 beyond 

"E" store 

72 

TV 

A 

IW143J 

1 


73 

TP 

RV1 

TZ32 

1 to index 


74 

TM 

TZ31 

Q 



75 

RJ 

IW146 

IW140 

Go count 


76 

77 

TV 

TP 

IW143 

TZ30 

IW77 1 
30000 J 

^ Insert sign code as required 

100 

MJ 

0 

IW111 

Jump to pack 


rioi 

RP 

10031 

IW103 1 

1 Fixed-point entry. Clear 24io digit 

102 

TP 

RV 

TZ 

1 code stores 

and 1 sign code store 

103 

ZJ 

IW106 

IW104 

Quantity zero 


J 104 

TP 

RV3 

TZ21 

Yes, so note 


S 105 

MJ 

0 

IW111 

Jump to pack 


106 

RJ 

XE6 

XE 

Patch correction 

107 

TV 

IW143 

IW110 1 

i Negative sign 

in excess three 

.110 

TP 

TZ30 

30000J 

I added, if number is negative 

rni 

TP 

RV3 

TZ32 

3 to 1st index 

112 

TU 

XE7 

IW116 

Initialize 


113 

TP 

RV11 

Q 

Mask —>Q 


114 

TP 

RV4 

TZ30 

5 to 2nd index 

115 

LA 

TZ33 

6 



j 116 

QS 

30000 

TZ33 



N 117 

RA 

IW116 

RV12 



120 

IJ 

TZ30 

IW115 



121 

TP 

TZ33 

30000 

Store one word in buffer 

122 

RA 

IW121 

RV1 

Increment buffer address 

123 

IJ 

TZ32 

IW114 



\J24 

MJ 

0 

IW3 

Jump to exit 


A25 

SP 

RV 

0 



126 

RP 

20012 

mss) 

If 1st 10 stores not > 0, buffer empty, 

127 

TJ 

BF 

IW130J 

so out (but 

index may be at BF+n) 

130 

SP 

TN 

17 

Tape number to u of A 

J 131 

AT 

RV14 

GT3 1 

Send parameter to GTH and write 

} 132 

RJ 

GT2 

GT J 

block on tape 

133 

RP 

10171 

IW1351 

> Clear buffer 

l 


134 

TP 

RV 

Bl J 


135 

TV 

RV 14 

BI 

Reset buffer index 

U36 

MJ 

0 

IW3 

Out 
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'l 37 

TP 

A 

Q 


140 

SP 

0 

0 


141 

ZJ 

IW142 

IW146 

Integer , 

142 

DV 

RV6 

Q 

Conversion^ 

143 

AT 

RV3 

30000 


144 

RS 

IW143 

RV1 


145 

IJ 

TZ32 

IW140 


T46 

MJ 

0 

30000 

Correc¬ 

£eo 

TV 

IV104 

IW143 

tion 

1 

TP 

RV6 

TZ32 

Patch for 

2 

SJ 

XE3 

XE5 

Fixed- 4 

3 

TP 

RV2 

TZ30 

Pt. Num¬ 

4 

TM 

A 

A 

bers 

5 

RJ 

IW146 

IW137 


6 

MJ 

0 

30000 


^ 7 

0 

TZ 

TZ14 

R V , 

r 0 

0 

0 

0 


1 

0 

0 

1 


2 

0 

0 

2 


3 

0 

0 

3 


4 

0 

0 

5 


5 

0 

0 

10 


6 

0 

0 

12 


7 

0 

0 

22 

Constants< 

10 

0 

0 

30 


11 

0 

0 

77 


12 

0 

1 

0 


13 

16 

70000 

0 


14 

74 

20100 

1005 


15 

DE 

1.0 

0 F 


16 

DE 

1.0 

1 F 


17 

DE 

1.0 

-1 F 


1^20 

DE 

1.0 

9 F 



CA 

WI206 



Integer —*-Q 


Divide by 10 
Form and store code 


Exit 

No, units position is 18th temp, store 
Set index to IO^q 
I s number negative? 

Yes, put XS3 code in temporary 
Take absolute value of number 
Go convert 

u is beginning address of temporaries 
v is location of period for floating pt. 


Negative code 


Code for period 
Code for E 


119 in ch. field 
GTH code 
1.0 
10 . 

0,1 (Min.) 

Max. + 1 
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Explanation of Temporaries Used 


TZ-TZ27 are used for storing the XS3 codes of the 4 words resulting from 
any one number that is listed by the routine. Signs, decimal digits, 
and the exponent letter E are stored here. If the number is floating¬ 
point, the units position is TZ12 and a period is put in TZ13. The 
fractional part of a floating-point number starts at TZ14. If the 
number is fixed-point, the units position is TZ21. 


TZ30 


j Minus XS3 code is stored here, as needed. 

I Holds index for packing 6 characters in a word. 


TZ31 


TZ32 


Exponent of floating-point numbers that are to be expressed 
rn scientific notation is built up here. 

^ Index for 9 digits of fractional part of floating-point number. 
Index for possible two digits of an exponent. 

Index for 4-word output of any one input number. 

^ Index for maximum 11 decimal digits of an output number. 


TZ33 


Floating-point number in a certain range put 

Fractional part of floating-point number put 
s as it is converted to decimal form. 

Output words of any number are built up here 

in the Output Buffer of the List routine. 


here temporarily, 
here 

prior to insertion 
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"Inner" READ Routine (50100) 


Purpose 

Either ; To position data tape to beginning of required data 

Or : To extract one word of decimally coded data from tape, and convert 
to binary floating point. 


Calling Sequence 

1) Tape positioning a 

+1 

+2 

+3 


TP [.(Variable Name) INI 

RJ IN IN2 

Abnormal "end of data" return 
Normal return, with tape positioned 


a + 2 will hold a MJ instruction. If READ is of type including 

"IF END OF DATA JUMP TO SENTENCE-", then the appropriate sentence 

CW is filled into v. Otherwise, we have MJ 0 a , i.e., to return 
to beginning of data, and commence extraction over again. 


Data Extraction 

a 

RJ 

IN IN3 


+1 

TP 

0 [[ ? 3 Normal return, word 


+2 

RA 



+3 

IJ 



+4 

Abnormal return, insufficient data 


If the routine is referenced enough times to cause the tape to 
move onto the next data set, an alarm stop is met. If START is hit, 
remainder of array is filled in with zeros, and exit is made at a + 4. 


Initialization 


None as such, but FX and FXl must hold the initial location of the 
data index, andjn, n describing it, respectively. 


Storage 

606q orders, constants, and temps 
+ I70g word buffer (which is termination buffer) 
+ 2 fixed locations. 


Note: This routine includes the XS3 to Floating-Point conversion routine 
from GG0-CF16. (See Section 111,3-Translation Subroutines.) 
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A Note on the Mechanism of Tape Positioning 


The "data index" is read in and translated into the form shown in the 
accompanying diagram. When a variable is requested by generated READ coding, 
the index is searched to find this variable, and hence the "tape synonym." This 
is noted, and then scanning continued, to find the first "TAPE" - and hence 
the containing tape number, and hence the "indicator." 

Now, at the start of the problem, the tapes are rewound, and "ADATA4" placed 
in the indicator. If this is seen, we scan the tape forward, searching for 
the required tape synonym. If not, we search the index again, to determine 
whether the "indicator" word can be found before the required synonym. If 
so, we scan the tape forward. If not, we scan backward. If the tape is at 
the extreme end, this also is signified by a special "indicator", and the tape 
scanned backward. 

When positioning is completed, the synonym is placed in the indicator for 
this tape. 
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INDEX FORMAT AND DESCRIPTION 


The necessary information to describe the data index is contained in two 
(running) fixed locations: 

FX | 0 L L 

+1*0 J,n n 

Where L is the initial location of the index, J = 2, and n = number of 
locations occupied. 


Format 


X 

v tr i 

+1 

S t r l 

+2 

Vti.2 

+3 

S ti,2 

+4 

i 

Vt lt 3 

1 

1 

1 

1 

| 

? l l* 3 

1 

r 

etc 

TAPE 


oooooooooot 


ll l 


v t 2 .1 


S t2.1 


Vt 2 .2 


CM 

CM 

4-> 

in 


TAPE 


oooooooooot, 

i 


i l 2 


4tc. 


Where: V represents the name of the 
variable as referenced in the program 

S represents the synonym for 
this data, as actually written on tape 

t represents the octal tape 
number containing all preceding information, 
back as far as the previous "TAPE" word 

it represents the tape synonym 
of the data last read in from tape t. 

(N.B. This word may also hold "^1DATA4", 
indicating that this tape is rewound, OR, 

"AENDAO”,showing that the tape is at 

the end of all information written thereon.) 


V’s will be XS-3 coded, pushed to the left of the word, and filled with 77's 
S’s will be XS-3 coded, pushed to the right of the word, and filled with spa 
symbols. 






"End of Data" Procedure 


This example shows three sets of A, each of two blocks, followed by two 
sets of B, each of three blocks. 


1st Read A 



Data extracted, 
normal exit 


2nd Read A 



Data extracted, 
normal exit 


3rd Read A 



i 


Data extracted, 
normal exit 


4th Read A (i) | | | j V |_| B Sentinel seen 

I 

I 

(ii) j . I V _I_1 So ,3ac * c U P» leaving 

i B in indicator , take 

' end-of-data exit 



\ 

''Read A 


Back up to start of A 


Read forward, B seen, 
qo ahead, extract 
data 
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o 

O' 


START 



Initializatioi 
for Data 
Extraction 


Entry 2 

TAPE POSITIONING 


Inner Read Routine 






Inner Read Routine (Cont.) 
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Inner Read Routine (Cont.) 
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Q 




Inner Read Routine (Cont.) 





Ill 



Inner Read Routine (Cont.) 
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"Inner” Read Routine (50100) 



IA 

NI 




0 

50100 

557 

Call word; no. of lines prelude & routine 


0 

0 

473 

No. of lines for address modification 


0 

0 

56 

No. of unmodifiable constants 


77 

77777 

77775 

No. of inputs (-2 for Processor) 


0 

0 

0 

No. of outputs 


54 

30242 

75450 

Name (READRN) 

I\0 

MJ 

0 

[3000(3 Exit 

1 

Co 

30000 

3000(5] Input line 

2 

MJ 

0 

PS 

Entry for tape positioning 

3 

TP 

CF13 

GG4 

1 Entry for data extraction 

4 

TP 

CF13 

GG5 

j Clear GG input lines 

5 

TP 

CF3 

CC 

1 to ST word index (2 input lines only) 

6 

7 

TV 

TV 

DR56 

DR62 

DR53 ' 
DR60 . 

| Set switches for GG conversion only 

10 

11 

TP 

RJ 

ST14 

ST12 

STl ' 
ST 10 . 

| Initialize ST 

DRO 

RJ 

BM27 

BM 

Obtain one character 

1 

EJ 

CF3 

BM 

Discard leading a 

2 

EJ 

CF22 

BM 

Discard E 

3 

4 

EJ 

EJ 

CF20 

CF23 

DR6 

DR6 

| end line 

5 

MJ 

0 

Dill 

0. K. - . or digit 

6 

TP 

CF13 

XX 1 

^ Start new line 

7 

TP 

CF13 

XXI J 

10 

MJ 

0 

BM 

Continue search for start 

11 

TJ 

CFl 

DR21 

Start. - sign? 

12 

RJ 

ST 12 

ST 

No, digit, store 

13 

RJ 

BM27 

BM 

Get next character 

14 

EJ 

CF3 

DR51 

If A , out 

15 

EJ 

CF22 

DR25 

If E, go process exp. 

16 

EJ 

CF20 

DR47 

If, ) end line, out 

17 

EJ 

CF23 

DR47 

if; J 

20 

MJ 

0 

DR12 

Otherwise, go store 

21 

TV 

DR64 

DR60 

- seen, enable complementation 

22 

23 

RJ 

EJ 

BM27 

CF3 

BM ] 
BM J 

> Discard any A between - and digits 

24 

MJ 

0 

DR15 


25 

TV 

DR63 

DR53 

E Seen, enable exponentiation 

26 

TP 

DR65 

DR57 

Assume +ve exponent 

27 

TP 

CF13 

XX4 

Zeroize exponent store 

30 

RJ 

BM27 

BM 1 

Discard A between E and first exp. 

31 

EJ 

CF3 

BM J 

character and - and 1st exp.digit 

32 

TJ 

CFl 

DR45 

- sign? 

33 

ST 

CFl 



34 

35 

SP 

SA 

XX4 

XX4 

2 1 

1 | 

> No, form exponent 

36 

AT 

0 

XX4 J 


37 

RJ 

BM27 

BM 

Get next character 
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40 

TJ 

CF1 

DR51 

41 

EJ 

CF20 

DR47 

42 

EJ 

CF23 

DR47 

43 

EJ 

CF21 

DR51 

44 

MJ 

0 

DR33 

Ar. 

"tKj 

TD 

L L 

U11WVJ 

DR 5 7 

46 

MJ 

0 

DR 30 

47 

TP 

CF13 

XX 

50 

TP 

CF13 

XXI 

51 

RJ 

GG2 

GG 

52 

TP 

GG3 

0 

53 

MJ 

0 

[3000(3 

54 

LA 

XX4 

17 

55 

TU 

A 

DR56 

56 

RP 

[o] 

DR60 ) 

=,7 

fb 

30000 

^nnnnl f 

V W V VJ 

60 

MJ 

0 

C30000] 

61 

TN 

Q 

Q 

62 

MJ 

0 

IN 

63 

0 

0 

DR54 

64 

0 

0 

DR61 

65 

FM 

0 

CF25 

66 

FD 

Q 

CF25 

BM 0 

IJ 

XX 

BM21 

1 

IJ 

XXI 

BM16 

2 

IJ 

XX2 

BM13 

3 

SP 

TN 

17 

4 

AT 

CF37 

GT3 \ 

5 

RJ 

GT2 

GT J 

6 

TP 

CF26 

A 

7 

EJ 

BF 

EP5 ) 

10 

EJ 

BF1 

EP5 / 

11 

TP 

CF2 

XX2 

12 

TP 

BM21 

XX3 

13 

TU 

XX3 

BM16 

14 

RA 

XX3 

CF17 

15 

TP 

CF23 

XXI 

16 

TP 

[30000] 

BF 

17 

RA 

BM16 

CF4 

20 

TP 

CF2 

XX 

21 

LQ 

BF 

6 1 

22 

QT 

CF 

A J 

23 

EJ 

CF13 

BM 

24 

TJ 

CF24 

BM27 

25 

RP 

20004 

BM 1 

26 

EJ 

CF20 

BM27 J 

27 

MJ 

0 

[3000Q] 

ST 0 

G> 

30000 

(30000)] 

1 

Qo 

(30000) 

(30000)] 

2 

RS 

ST 

CF27 

3 

IJ 

CC1 

ST 12 

4 

IJ 

CC 

ST 7 


If A or - , out 

If I 

> clear, out 

If out 
Otherwise, back 
— exp. seen. Set FD 

Zeroize shift index 
Zeroize word index 
Go convert 
Output —> 0 

[Exp]-* A u 

Ann! \r Pvonnont 
1 


And out 


Jump on shift index 
Jump on word index 
Jump on line index 

Read one block (forward) 

Z-Z—>A 

If Sentinel, go to probable error routine. 

(It will be necessary to back up tape) 

5 to line index 
Initialize to BF 

Inc. by 20 (u) 
l9^0->word index 

Inc. by 1 (u) 

5—> shift index 

Extract 1 frame 

If 00 (i) discard 
If < 15 q, O.K. 

£ 15 - check for permitted , . ; E 
otherwise reject 
Exit 

LA A n (or MJ 0 ST12) 

AT GGr GGr 

Decrease shift by 6 

Count down on character index 

Insure not more than two words of input 
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5 

TP 

ST6 

ST 

Yes, set entrance skip 

6 

MJ 

0 

ST 12 

And out 

7 

RA 

ST1 

CF30 

Augment u and v, to input 2nd line 

10 

TP 

CF2 

CC1 

Reset index to 5 

11 

TP 

ST13 

ST 

Reset 1st instruction 

12 

MJ 

0 

[3000(3 

Exit 

13 

LA 

A 

36 

Constant 

14 

AT 

GG4 

GG4 

Constant 

PS 0 

TU 

FX1 

SC 

Set up RP 

1 

TU 

FX 

SCI 

Set up EJ 

2 

TP 

INI 

A 

Variable required 

3 

RJ 

SC7 

SC 


4 

TP 

A 

CC 

Store synonym of variable requested 

5 

TP 

SC6 

CC1 

Save order containing syn. address (TP L 
(syn ) A) 

6 

LQ 

Q 

17 


7 

TU 

Q 

SC 

Set up RP for continued scan 

10 

TU 

SC6 

SCI 

Set up EJ for continued scan 

11 

TP 

CF33 

A 

" A A TAPE"-» A 

12 

RJ 

SC7 

SC 


13 

TP 

A 

TN 

Note tape number 

14 

RA 

SC6 

CF4 

Form address of indicator 

15 

TU 

A 

PS25 

And set up order 

16 

SS 

CC1 

0 


17 

SA 

CF41 

0 

Add 17774 in "u”, forming jn for repeat 

20 

TU 

A 

PS31 


21 

RA 

CC1 

PS35 

Increment by 2 in "u" field 

22 

TU 

A 

PS32 


23 

LQ 

PS25 

Q25 


24 

TV 

Q 

TB6 

Set up subroutine with address of indicator 

25 

TP 

[30000] 

A 

Indicator syn.—>A 

26 

EJ 

CF34 

PS33 

= A DATA A ? (i.e., at start of tape?) 

27 

EJ 

CC 

PS55 

= Required Synonym? 

30 

EJ 

CF35 

PS36 

= aENDaO? (i.e., at end of tape?) 

31 

RP 

[o] 

PS 33 

None of these. Scan from L(Syn)—>L(TAPE) 

32 

EJ 

[30000] 

PS36 

If indicator scan, move backward; if not, 


forward 

FORWARD 33 RJ MF6 MF Go read forward 

34 EJ CF35 EP Return here if Sentinel seen, but incorrect 

35 MJ 2 PS33 one. So test for end of tape, & if not 

carry on 

f 7 % CF40 GT3 } Read 1 bl0Ck back " ards 

40 RJ GT2 GT Read 1 block backwards 

41 RJ TB11 TB 

42 MJ 0 PS36 Return here if no. Sentinel seen 

43 MJ 0 PS46 Return here if correct syn seen, so go 

test Set No. 


44 

EJ 

CF34 

EP 

Incorrect syn, check not start of tape 

45 

MJ 

0 

PS36 


46 

SP 

BF3 

° 1 

Test for 1st set 

47 

E J 

CF32 

PS51 J 
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50 MJ 

51 SP 

52 SA 

53 EF 

54 MJ 

INDIC= 55 RJ 

SYN 56 MJ 

57 RA 

60 TP 

61 TP 

62 TP 

63 TP 

64 MJ 
SC 0 RP 

1 EJ 

2 SN 

3 SA 

4 SA 

5 TU 

6 TP 

7 MJ 
MF 0 SP 

1 AT 

2 RJ 

3 RJ 

4 MJ 

5 MJ 

6 MJ 
TB 0 TP 

1 RP 

2 EJ 

3 RA 

4 AT 

5 TP 

6 TP 

7 EJ 

10 Co 

11 MJ 
EP 0 TP 

1 RJ 

2 TP 

3 MS 

4 0 

5 RA 

6 TP 

7 RJ 

10 TP 

11 MS 

12 0 

13 SP 

14 SA 

15 EF 

16 MJ 


0 

PS36 

TN 

14 

CF36 

0 

0 

A 

0 

PS57 

MF6 

MF 

0 

EP13 

IN 

CF3 ) 

CF13 

XX j 

CF13 

XXI 

CF2 

XX2 

CF52 

XX3 

0 

IN 

Co] 

EP ^ 

[30000] 

SC2 j 

0 

17 ^ 

FX1 

0 

FX 

° 

A 

SC6 

C30000] 

A J 

0 

[30000] 

TN 

17 1 

CF37 

GT3 } 

GT2 

GT J 

TB11 

TB 

0 

MF 

0 

PS57 

0 

[30000] 

CF26 

A 

20002 

TB11 \ 

BF 

TB3 J 

TB11 

CF3 

CF3 

TB10 

BF2 

A 

A 

[30000] 

CC 

TB11 

30000 

30000 

0 

[3000(2 

EP4 

Q ^ 

CF55 

CF53 

INI 

0 > 

0 

PS 

CF42 

4 J 

IN 

CF1 

EP12 

0 1 

CF55 

CF53 J 

INI 

Q 

0 

EP13 

CF46 

4 

TN 

14 1 

CF31 

° > 

0 

A J 

0 

IN 


Not 1st set, so go back and read more 
Now move 1 block forward 
Add in EF code 
And execute 

Go to normal exit (modified) 

Read forward until next Sentinel 
Incorrect syn;,*. end of data,abnormal 
exit 

Normal (modified) exit 
Clear shift index 
Clear word index 
5—»line index 

Erasable address store to BF24 
And out 

Scan index as specified 


And extract word following that sought 
Exit 

Read in one block 

Go perform tests 

No Z-Z Sentinel, read more 

Required synonym, go modify exit (as usual) 
Incorrect synonym - exit 
Z-Z —>A 

If either of 1st two words all Z’s, 
accept test 

Examine syn. of this data, and place in 
indicator 

= Required synonym? 

Exit 3 

Exits 1 and 2 

Data cannot be found on tape 
(DATA INDEX ERROR) 

(N.B. - tape may be mounted at this stage) 

Inadequate data. Set abnormal exit 
Print out 
Note data 


Back up tape 1 block 
And exit 
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XS3 to Floating Point Conversion 
Routine GGO-CF16 used here (See Section 
III, 3-Translation Subroutines) 




CF 17 

0 

24 

20 

0 

0 

21 

0 

0 

22 

0 

0 

23 

0 

0 

24 

0 

0 

25 

DE 1.0A1AF 

26 

74 

74747 

27 

0 

0 

30 

0 

1 

31 

02 

14 

32 

01 

65662 

33 

01 

66245 

34 

01 

27246 

35 

01 

30502 

36 

02 

4 

37 

50 

00100 

40 

60 

00100 

41 

0 

17774 

42 

45 

4722 3 

43 

04 

14062 

44 

04 

20121 

45 

44 

24202 

46 

45 

47140 

47 

20 

35343 

50 

04 

22300 

51 

04 

24202 

52 

0 

BF24 

53 

TP 

0 

54 

RJ 

PR2 

55 

MJ 

0 


CA 

NI557 


0 

21 

22 

30 

23 

15 

47474 

6 

1 

1 

45466 

23001 

62401 

70151 

1 

BF 

BF167 

0 

00130 
2 2 027 
20312 
00435 
63022 
00120 
13044 
00435 
0 

PR3 

PR 

[j30000] 


XS3 codes 

(Also 19 1q ) 


10 (floating pt) 
Z-Z 


Move backward one block 
A START 
A TAPE a 
A DATA A 
A END AO 

Move forward one block 
Read forward 
Read backward 


cr f DATA) 
A INDEX 
A ERROR 
, SEE AQ 
cr f INAD 
EQUATE 
A DATA. 

A SEE A Q 


PS section error 
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Integer Conversion & Print-Out Routine (50112) 


Purpose 

To convert to decimal, and printout on-line a positive binary fixed- 
point integer, with a carriage return depending upon the contents of a 
specified index. 

Calling Sequence 


a 

TP 

L( Integer) 

IC3 

+1 

TP 

L(Parameter) 

IC4 

+2 

RJ 

IC2 

IC 

+3 

Control returned 

here. 


The parameter is the same as "Parameter 2", described in the Flex-Print 
routine. 

Storage 

71q orders and constants 

2 erasable locations 

A and Q destroyed 
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Integer Conversion and Print-Out Routine (50112) 



IA 

Cl 




0 

50112 

77 

Call word; no. of lines prelude + 


0 

0 

42 

No. of lines for address modificat 


0 

0 

27 

No. of unmodifiable constants 


0 

0 

2 

No. of inputs 


0 

0 

0 

No. of outputs 


34 

50662 

67066 

Name (INTCVT) 

C 0 

MJ 

0 

IC5 

Entrance 

1 

RJ 

30000 

30000 


2 

MJ 

0 

30000 

Exit 

3 

0 

30000 

30000 

Binary Integer Input 

4 

0 

30000 

30000 

Line Index Address 

5 

PR 

0 

IC22 

Switch to lower case 

6 

TU 

IC4 

IC27\ 

Set line index address 

7 

TV 

IC4 

IC31 J 

10 

TP 

IC3 

A56 


11 

SJ 

IC13 

IC12 

Negative? 

12 

ZJ 

IC14 

IC34 

Zero? 

13 

PR 

0 

JC10 

Print minus sign 

14 

TM 

A 

IC72 

Non-zero, send positive integer to 





space 

15 

TP 

IC53 

IC71 

Set divide index to 10 decimal 

16 

TP 

IC41 

IC25 

Set switch to suppress zeros 

17 

TU 

IC16 

IC22 

Initialize divide 

20 

RA 

IC22 

IC70 

Prepare for next power of 10 

21 

TP 

IC72 

A45 


22 

DV 

30000 

Q57 


23 

TP 

A 

IC72 

Store remainder 

24 

SP 

Q 

0 

Quotient —>A 

25 

0 

30000 

30000 

ZJ IC35 IC32; AT IC37 IC26 

26 

0 

30000 

30000 

PR 0 IC55 +n 

27 

IJ 

30000 

IC32 

Test for end of line 

30 

PR 

0 

IC21 

Carriage return 

31 

TP 

IC67 

30000 

Reset index 

32 

IJ 

IC71 

IC20 


33 

MJ 

0 

IC2 

To exit 

34 

TP 

A 

IC71 

Set divide index to zero 

35 

36 

TP 

MJ 

IC40 

0 

IC251 

IC25 / 

Set switch to commence printing 

37 

PR 

0 

IC55 


40 

AT 

IC37 

IC26 


41 

ZJ 

IC35 

IC32 

< 

42 

11 

2 4 027 

62000 

43 

0 

73465 

45000 

10 J 

10 ? 

44 

0 

5753 

60400 

45 

0 

461 

132 00 

l °l 

46 

0 

36 

41100 

10 5 

47 

0 

3 

03240 

10 5 
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50 

0 

0 

23420 

io^J 



51 

0 

0 

1750 

10^ 



52 

0 

0 

144 

10 1 

10 0 



53 

0 

0 

12 



54 

0 

0 

1 

10° 



CC 

n 

r\ 

07 

A w. 



JO 

vr 

u 

O 1 

U A 



56 

0 

0 

52 

1 



57 

0 

0 

74 

2 



60 

0 

0 

70 

3 



61 

0 

0 

64 

4 

> 

Flex Codes 

62 

0 

0 

62 

5 


63 

0 

0 

66 

6 



64 

0 

0 

72 

7 



65 

0 

0 

60 

8 



66 

0 

0 

33 

9 ^ 


A7 

U 1 

n 

V 

n 

V 

1 17 

1 4. 1 




70 

0 

1 

0 




71 

72 

CA 

CI77 

1 

i 

> 

^ Temps. 

and index 



3. UNICODE SYSTEM TAPE PACKAGE 




3. UNICODE SYSTEM TAPE PACKAGE 


This package makes possible a reproduction of a UNICODE Master Tape and 
a quick comparison by sections with the original to check the accuracy of the 
reproduction. Also an octal copy of the UNICODE Master Tape can be taken for 
listing by the High-Speed Printer. Corrections and/or alterations to the 
UNICODE System are facilitated by its use. 

There are two versions of this set of subroutines; one for the 1103A and 
one for the 1105. High-speed memory usage is confined to the first core bank 
of 4096 addresses. 

The main routines to perform the functions mentioned above are described 
in this write-up as well as a number of subsidiary routines which are used by 
the main routines and are also usable by an operator from the console. 

A list of these routines follows: 


1) 

Reproduce UNICODE Master Tape 


2) 

Compare Two UNICODE Master Tapes 


3) 

High-Speed Printer Octal Listing 

of UNICODE Master Tape 

4) 

Read Magnetic Tape 


5) 

Write Magnetic Tape 


6) 

Bioctal Paper Tape Loader 


7) 

Flex Paper Tape Loader 


8) 

High-Speed Printer Octal Dump on 

Magnetic Tape 

9) 

Read to Q 


10) 

Write From Q 


11) 

Changed-Word Post Mortem 



The package is stored as follows: 


40200 - 40330 \ 
40400 - 40435/ 
40500 - 40520 

40600 - 40746 
41000 - 41430 
44600 - 45741 


Reproduce UNICODE Master Tape 

High-Speed Printer Octal Listing of UNICODE 
Master Tape 

Compare Two UNICODE Master Tapes 
Read, Write Magnetic Tape 
Routines 6-11 


The Read and Write Magnetic Tape routines bootstrap themselves into 
core addresses 6230-6661. They use a read-write buffer located from 5270- 
6227. The core is not restored after their use. 
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Compilation with UNICODE or running an Object Program destroys this 
package. 

On the Master Tape, UNICODE has been divided logically into 23 sections. 
Thus a set of 23 parameters is used to read or write a UNICODE Master Tape. 
Following is a table giving the sections of UNICODE, their length in blocks 
(octal), and their loading addresses in the core or drum. 


Sec¬ 

tion 

Num¬ 

ber 

Section Title 

Num¬ 

ber 

Blocks 
(Octal) 

Addresses 

1 

UNICODE Sentinel Blocks 

2 

7230-7607 

2 

Merge 

16 

35-3134 

3 

Set-up Translation 

2 

7230-7607 

4 

Translation Sub Prints & Translators 

133 

50333-75600 

5 

Region FC (Flex Codes) 

1 

40001-40100 

6 

Translation Subroutines 

17 

21-3316 

7 

Dimension Translators No. 1 and No. 2 

4 

4400-5267 

8 

Fixed Library Catalog 

1 

7230-7417 

9 

Set-up Generation 

1 

72 30-7417 

10 

Generators 

66 

50212 -64 731 

11 

Generation Subroutines 

6 

537-2043 

12 

Set-up Segmentation 

1 

7230-7417 

13 

Segmentor 

11 

674-2726 

14 

Op File I for Fixed Library 

1 

7230-7417 

15 

Set-up Allocation 

1 

7230-7417 

16 

Allocation 

7 

674-2403 

17 

Set-up Initialization 

1 

7230-7417 

18 

Initialization Generator 

16 

2000-5057 

19 

Set-up Processor 

1 

7230-7417 

20 

Processor 

6 

653-2172 

21 

Fixed Library Routines 

17 

10-3417 

22 

Set-up Listing 

1 

7230-7417 

23 

Listing Routine 

12 

653-3027 
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Following is a brief description of the routines and their use: 

1. Reproduce UNICODE Master Tapes 

The UNICODE Master Tape should be loaded on Uniservo 2 (Tape Control Unit 

2, if 1105). A blank tape should be loaded on Uniservo 1 (TCU2, if 1105). If 
MSI is on, a stop occurs after each typing of a section number. If MSI is off, 
the tape is reproduced without stopping. Start with PAK at 40400. 

Uniservo 2 is read according to the set of addresses of the first section 
and the figure 1 is typed. If MS 1 is set, the computer stops with PAK at 
40414. If this section is to be changed, Flex, bioctal, or magnetic-tape 
inputs should be loaded at this point. If this loading does not alter address 
40000, Master Clear and Start. If address 40000 has been altered, Master 
Clear, set PAK at 40414, and Start. The altered contents of section 1 is 
then written on Uniservo 1; Uniservo 2 is read according to the parameter of 
the second section; the figure 2 is typed; and the computer stops again on 
MSI with PAK at 40414. Now corrections or changes may be made in section 2 
before restarting as explained above. This procedure continues in a like 
manner through the 23 sections of UNICODE. The final stop occurs with PAK at 
40400. Tapes 1 and 2 are automatically rewound. 

2. Compare Two UNICODE Master Tapes 

Put the UNICODE Master Tapes to be compared on Uniservos 1 and 2. Set 
PAK at 40600 and start. 

The routine compares the two tapes and prints out any differences on 
the typewriter in changed-word post mortem format. If the tapes are identical, 
only the section numbers are typed. When comparison is finished, both tapes 
are rewound and the computer stops at 40600. This routine should be run after 
every updating to see if the new tape has been properly reproduced. 

3. High-Speed Printer Octal Listing of UNICODE Master Tape 

Put the UNICODE Master Tape on Uniservo 1 (TCU2, if on 1105); put a 
blank tape on Uniservo 3 (TCU2, if on 1105). Set PAK at 40500 and start. 

The output on Uniservo 3 can be later run off on the High-Speed Printer 
to secure the desired listing. Both tapes must be rewound from the console 
after the computer stops at 40500. 
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u 


V 


4. Read Magnetic Tape 
Op 

0 = xxy yyy 


First 

Address 


Last 

Address 


where x is any binary digit and yyyy is the binary representation of the 


Uniservo number. If on the 1105, 

With Q set as desired, set PAK at 
a program may be made by loading Q as 
41217 41152. 


use a Uniservo under Tape Control Unit 2. 

41152 and start. References from within 
desired and using the instruction, 37 


III V* 1 4* ft/I n rv m l A r r *% A 

vu i t c lucivj ^ J- idpc 


Op 


u 


V 


0 - Zxy yyy 


First 

Address 


Last 

Address 


where Z = 1, 
x is any binary digit, 

yyyy is the binary representation of the Uniservo number. Use Tape 
Control Unit 2 if on the 1105. 


Set PAK at 41000 and start. This routine may also be referenced from a 
program by the instruction, 37 41036 41000. 


6. Bioctal Paper Tape Loader 


Put the tape in the Ferranti reader, turn the reader on, set PAK at 44601, 
and start. The routine can also be used by the program reference, 37 44636 

44601. 


7. Flex Paper Tape Loader 

Put the tape in the Ferranti reader, turn the reader on, set PAK at 44602, 
and start. The routine can also be used by the program reference, 37 44636 

44602. 

8. High-Speed Printer Octal Dump on Magnetic Tape 

u v 

First Last 

Address Address 


Op 

Q = zxy yyy 
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where z = 0 means use of Tape Control Unit 1 

z = 1 means use of TCU2 if on the 1105. If on the 1103A, z 
must be set at 1 for any use of the routine. 

x = 0 means no rewind of tape 

x = 1 means rewind with interlock and printer stop, 
yyyy is the binary representation of the Uniservo number. 

Set PAK at 44625 and start. The output tape, when listed on the High- 
Speed Printer, will give an octal dump of the storage area between the 
addresses specified in u and v. This routine may be referenced from a program 
by the instruction, 37 44636 44625. 

9. Read to Q 

Put address which is to be read in A , set PAK at 44603, and start. The 

v' ' 

content of the address appears in Q and the address in A y is increased by 1 

for a read of the next address, if desired. The computer stops on 44603. 

10. Write from Q 

Put address which is to be filled in A y , put content that is desired in Q, 
set PAK at 44604, and start. The content of Q is stored in the address speci¬ 
fied and the address in A is increased by 1 for another write in the next 

v J 

address, if desired. The computer stops on 44604. 

11. Changed-Word Post Mortem 

Op u v 

Q = XX YYYYY ZZZZZ 

where XX = 00 gives punched paper tape output. 

XX ^ 00 gives typed output. 

YYYYY is the first address of the area to be compared. 

ZZZZZ is the first address of the image. 

In A^ should be put the number of words to be compared. Set PAK at 
44613 and start. The routine may be referenced from a program by the in¬ 
struction, 37 44636 44613. 
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Reproduce System Tape (KK) 


ro 

CD 
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Compare Two Unicode System Tapes 





130 












Regions for System Tape Package 


BA72 30 

CA35 

EA50333 

FA40001 

GA21 

HA4400 

JA7230 

KA50212 

LA537 

NA674 

RA674 

TA2000 

VA653 

WA10 

YA653 

GG40200 

22 

PR4G222 

10 

CE40232 

10 

CC40242 

40 

FF40302 

27 

KK40400 

31 

CD40431 

5 

ZB40500 

14 

CP40514 

5 

HH40600 

102 

HJ40702 

15 

VV40717 

30 

40747 


BZ7607 

CZ3134 

EZ75600 

FZ40101 

GZ3316 

HZ5267 

JZ7417 

KZ64731 

LZ2043 

NZ2726 

RZ2403 

TZ5057 

VZ2172 

WZ3417 

YZ3027 


ZD41152 

MD41000 

RS40000 

EN44600 


Read 

Write 

Restart 

Other Routines 
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System Tape Package 
(Parameters) 


UNICODE 

MASTER 


TAPE SECTIONS 


IA 

FF 


1 

0 

41 

BA 

BZ 

2 

1 

41 

CA 

CZ 

3 

2 

41 

BA 

BZ 

4 

3 

41 

EA 

EZ 

5 

4 

41 

FA 

FZ 

6 

5 

41 

GA 

GZ 

7 

6 

41 

HA 

HZ 

8 

7 

41 

JA 

JZ 

9 

10 

41 

JA 

JZ 

10 

11 

41 

KA 

KZ 

11 

12 

41 

LA 

LZ 

12 

13 

41 

JA 

JZ 

13 

14 

41 

NA 

NZ 

14 

15 

41 

JA 

JZ 

15 

16 

41 

JA 

JZ 

16 

17 

41 

RA 

RZ 

17 

20 

41 

JA 

JZ 

18 

21 

41 

TA 

TZ 

19 

22 

41 

JA 

JZ 

20 

23 

41 

VA 

VZ 

21 

24 

41 

WA 

wz 

22 

25 

41 

JA 

JZ 

23 

26 

41 

YA 

YZ 



CA 

FF27 



1st & 2nd blks. 

Merge 

Two blks. after merge set-up S.O.S. 
S.O. & S.O.S. prints 
FC 

S.O.S. 

Dim. n & #2 

F i h Tat a 1 on 

— ~ . - 

Set-up Generation 
Generation 
Generation Subs 
Seg. Set-up 
Segmentation 

Op. file 1 for Fixed Library 
Set-up Allocation 
Allocation 

Set-up Initialization 
Initialization Generation 
Processor Set-up 
Processor 

Fixed Library routines 
Listing Set-up 
Listing 
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Produce Master Tape 



IA 

GG 



0 

TU 

CC 

GG5 

Set to print *1 

1 

TU 

GG17 

GG11 

Set address of 1st par. 

2 

TP 

CE4 

CE3 

Set index 

3 

TV 

CE5 

GG10 

Set one shot 

4 

TP 

CE6 

RS 

Set restart address (40000) 

5 

TP 

(30000) 

CE7 

No. to print 

6 

RJ 

PR 

PR1 

Print number 

7 

MS 

0 

EN2 

Stop for load 

10 

RJ 

GG10 

(30000) 

One shot other params j 

11 

12 

TP 

RJ 

(30000) 

MD36 

Q 1 

MDl J 

^ Write tape 

13 

RA 

GG11 

CE 1 

1 Modify 

14 

RA 

GG5 

CE J 

15 

IJ 

CE3 

GG4 

n parameters 

16 

MS 

0 

GG 


17 

TP 

FF 

0 


20 

RJ 

MD36 

MD 


21 

MJ 

0 

GG13 



CA 

GG22 




Print Digit 



IA 

PR 




0 

MJ 

0 

(30000) 

Exit 


1 

RP 

2 

PR 3 



2 

PR 

0 

CE2 



3 

PR 

0 

CE 1 

Lower 

carriage 

4 

SP 

CE7 

52 1 

1 

5 

PR 

0 

A 1 

> Print 

word 

6 

SS 

A 

6 j 

I 


7 

ZJ 

PR 5 

PR 




CA 

PR 10 





Constants 


0 

IA 

0 

CE 

1 

0 


1 

0 

0 

57 

Shift down 

2 

0 

0 

45 

Return carriage 

3 

0 

0 

0 

Index 

4 

0 

0 

26 

Set index 

5 

0 

0 

GG17 


6 

MJ 

0 

GG10 

Set restart 

7 

0 

0 

0 

No. to print 


CA 

CE10 
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Constants 



IA 

CC 



0 

0 

CCl 

0 


1 

52 

0 

0 

Flex for 1 

2 

74 

0 

0 

2 

3 

70 

0 

0 

3 

4 

64 

0 

0 

4 

5 

62 

0 

0 

5 

6 

66 

0 

0 

6 

7 

72 

0 

0 

7 

10 

60 

0 

0 

8 

11 

33 

0 

0 

9 

12 

52 

37000 

0 

10 

13 

52 

52000 

0 

11 

14 

52 

74000 

0 

12 

15 

52 

70000 

0 

13 

16 

52 

64000 

0 

14 

17 

52 

62000 

0 

15 

20 

52 

66000 

0 

16 

21 

52 

72000 

0 

17 

22 

52 

60000 

0 

18 

23 

52 

33000 

0 

19 

24 

74 

37000 

0 

20 

25 

74 

52000 

0 

21 

26 

74 

74000 

0 

22 

27 

74 

70000 

0 

23 

30 

74 

64000 

0 

24 

31 

74 

62000 

0 

25 

32 

74 

66000 

0 

26 

33 

74 

72000 

0 

27 

34 

74 

60000 

0 

28 

35 

74 

33000 

0 

29 

36 

70 

37000 

0 

30 

37 

70 

52000 

.0 

31 


CA 

CC40 
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Update System Tape or Reproduce System Tape 


0 

IA 

TU 

KK 

CC 

KKl 1 

Set to print #1 

1 

TU 

KK26 

KK6 

Set address of 1st par 

2 

TP 

CE4 

CE3 

Set index 

3 

TV 

CD 

KKl 5 

Set one shot 

4 

MJ 

0 

KK5 

Skip 

5 

TP 

CD1 

RS 

Set restart address 

6 

TP 

(30000) 

0 i 

1 Set to read tape #2 

7 

RA 

0 

CD4 J 

1 

10 

RJ 

ZD45 

ZD 

Read tape 

11 

TP 

(30000) 

CE7 

Set print number 

12 

RJ 

PR 

PR1 

Print number 

13 

MS 

10000 

KK14 

Stop for write 

14 

TU 

KK6 

KK16 

Set write address 

15 

RJ 

KK15 

(30000) One shot 

16 

TP 

(30000) 

Q 1 

^ Write tape 

17 

RJ 

MD36 

MD1 J 

20 

RA 

KK6 

CE *1 

► Modify 

21 

RA 

KK11 

CE J 

22 

IJ 

CE3 

KK5 


23 

EF 

0 

CD2 

Rewind »1 

24 

EF 

0 

CD3 

Rewind *2 

25 

MS 

0 

KK 

Stop 

26 

TP 

FF 

0 


27 

RJ 

MD36 

MD 


30 

MJ 

0 

KK20 



CA 

KK31 


Constants 



IA 

CD 




0 

0 

0 

KK26 



1 

MJ 

0 

KK14 



2 

2 

200 

10000 

Rewind 

#1 

3 

2 

200 

20000 

Rewind 

n 

4 

01 

0 

0 




CA 

CD5 
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Dump System Tape on Servo 3 TCU2 



IA 

ZB 



0 

TP 

CP3 

CP2 

Set index 

1 

TU 

CPI 

ZB3 

Set par. address 

2 

MJ 

50000 

ZB2 

Test buffer. 

3 

TP 

(30000) 

Q 

Par.— 

4 

RJ 

ZD45 

ZD 

Read Uniservo 1 

5 

TU 

ZB3 

ZB6\ 

Par. —> Q 

6 

TP 

(30000) 

Q J 

7 

RA 

0 

CP 

Uniservo 3 

10 

RJ 

EN36 

EN25 

Write Uniservo 3 

11 

RA 

ZB 3 

CP4 

Next parameter 

12 

IJ 

CP2 

ZB2 

23-parameter index 

13 

MS 

0 

ZB 

Stop 


CA 

ZB14 




Constants 


0 

IA 

2 

CP 

0 

0 

TCU2 designator 

1 

0 

FF 

0 

1st parameter address 

2 

0 

0 

0 

Index 

3 

0 

0 

26 

Set index 

4 

0 

1 

0 

1 in u 


CA 

CP5 




136 



Compare System Tapes 


IA HH 

0 TU CC HH17 

1 TU VV27 HH3 

2 TP VV6 VV5 

3 TP (30000) 0 

4 TP Q VV 

5 RJ ZD45 ZD 

6 TU HH3 HH7 'j 

7 TP (30000) Q 

10 RA 0 VV2 J 

11 LT 25 A 

]2 TV A VV 

13 TP Q A 

14 ST VV A 

15 AT VV4 VV1 

16 RJ ZD45 ZD 

17 TP (30000) CE7 \ 

20 RJ PR PR1 J 

21 TP VV 0 I 

22 TP VV1 A > 

23 RJ EN36 EN13 J 

24 RA HH3 VV23\ 

25 RA HH17 VV23J 

26 RJ HH26 HH27 

27 IJ VV5 HH3 

30 TP FF3 0 \ 

31 RJ ZD45 ZD J 

32 TP CC4 CE7 \ 

33 RJ PR PR1 / 

34 TP VV7 HJ2 ^ 

35 TP VV10 HJ3 l 

36 TP VV17 HJ4 f 

37 RJ HJ HJ1 J 

40 TP VV12 HJ2 1 

41 RJ HJ HJl J 

42 TP FF4 Q ) 

43 RJ ZD45 ZD J 

44 TP CC5 CE7 ) 

45 RJ PR PRl / 

46 TP VV14 Q \ 

47 RJ ZD45 ZD J 

50 TP VV15 0 

51 TP VV14 A > 

52 RJ EN36 EN13 J 

53 RA HH3 VV16'I 

54 RA HH17 VV16J 

55 TP VV17 VV5 

56 RJ HH26 HH3 \ 

57 IJ VV5 HH56J 


Set to print 1 
Set 1st parameter 
Set index 

Set prog, address 
Tape 1—> storage 

Set parameter in 0 

1st add. of image to A 
Set image address 
Last add.—>A 
Last - 1st—>A V 
+1 to set A parameter 
Read to image (No. 2) 

Print number 
Do CWPM 

Modify 

One shot 
3 parameters 

Read in S.O. from No. 1 
Print 4 

Compare S.O. 

Last of S.O. 

Read FC (#1) 

Print 5 
Read FC («2) 

Compare FC 

Set for S.0.S. 

Set index 

Up to generators 
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60 

TP 

FF11 

0 

61 

RJ 

ZD45 

ZD 

62 

TP 

CC12 

CE7 

63 

RJ 

PR 

PR1 

64 

TP 

VV7 

HJ2 


TP 

-L L 

VV20 

H 7'} 

66 

TP 

VV4 

HJ4 

67 

RJ 

HJ 

HJ1 

70 

TP 

VV22 

HJ2 ' 

71 

RJ 

HJ 

HJ1 

72 

RA 

HH3 

W23 

73 

RA 

HH17 

VV23 

74 

TP 

VV24 

VV5 

75 

RJ 

HH26 

HH3 

76 

IJ 

VV5 

HH75 

77 

i 1 

irr 

n 

V 

VV25 

100 

EF 

0 

VV26 

101 

MS 

0 

HH 


CA 

HH102 



Read generator (#1) 

Print 10 

Compare gen.- 

Last generator read 

Skip generator parameters 
Set index 

Do rest of parameters 

Rewind 

Rewind 
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IA 

vv 


0 

0 

0 

0 

1 

0 

0 

0 

2 

1 

50000 

50000 

3 

0 

0 

77777 

4 

0 

0 

1 

5 

0 

0 

0 

6 

0 

0 

2 

7 

2 

1 

5120 

10 

1 

50333 

1 

11 

0 

5120 

0 

12 

2 

1 

546 

13 

0 

0 

0 

14 

2 

1 

100 

15 

1 

40001 

1 

16 

0 

2 

0 

17 

0 

0 

3 

20 

1 

50212 

1 

21 

0 

0 

0 

22 

2 

1 

2260 

23 

0 

1 

0 

24 

0 

0 

14 

25 

2 

200 

10000 

26 

2 

200 

20000 

27 

0 

FF 

0 


CA 

VV30 



IA 

HJ 


0 

MJ 

0 

30000 

1 

MJ 

0 

HJ5 

2 

0 

30000 

30000 

3 

0 

30000 

30000 

4 

0 

30000 

30000 

5 

TP 

HJ2 

0 \ 

6 

RJ 

ZD45 

ZD J 

7 

TP 

HJ3 

0 

10 

TP 

HJ2 

A > 

11 

RJ 

EN36 

EN13J 

12 

RA 

HJ3 

VV11 

13 

IJ 

HJ4 

HJ5 

14 

MJ 

0 

HJ 


CA 

HJ15 



Q for CWPM 
A for CWPM 
Set for image read 
Mask 

Index 
Set index 
Read S.0. & gen. 
Compare S.O. 

For more reads 
Last read of S.O. 

Read FC 
Compare FC 

Set index 
Compare gen. 

Last gen. read 

Set index 
Rewinds 


Exit 

Start 

Read par. & comp. par. for A 

Compare par. for Q 

Index 

Read S.O. or gen. 

CWPM 

Modify 
N times 
Exit 
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Core 


Regions for Read-Write 

(Coding for both 1103A and 1105 versions shown) 


BS5267 

1 

X 

BF5270 

740 

DD6230 

40 

EE6270 

14 

FF6304 

5 

WB6311 

o=: 

*- u 

CR6336 

5 

SU6343 

4 

CC6347 

20 

BG6367 

13 

ZA6402 

51 

ZB6453 

13 

ZC6466 

40 

BB6526 

55 

CA6603 

35 

PC6640 

21 

ZZ6661 

CN740 

CL737 

LA6227 

CM741 

NN432 


Drum 

MD41000 

40 

ME41040 

14 

MF41054 

5 

MB41061 

os 

MR41106 

5 

MU41113 

4 

MC41117 

20 

MG41137 

13 

ZD41152 

51 

CB41223 

13 

DC41236 

40 

DB41276 

55 

CT41353 

35 

PD41410 

21 

41431 

No. of words in buffer 

No. of words -1 

Last add. of buffer 

No. of words +1 

No. of words to bootstrap 


Write 


Read 
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Write Magnetic Tape 


DD 



IA 

MD 



0 

MJ 

0 

MU 

— ► Setup 

1 

RP 

NN30000 

DD5 1 

> Bootstrap 

40 

Par- ftn 1st add. last add. 
Next add. in buffer 

2 

TP 

MD 

DD J 

3 

0 

30000 

30000 

4 

0 

30000 

30000 

5 

TP 

0 

DD3 


6 

QT 

CC2 

BG2 

1st add.—► temp. 

7 

LQ 

0 

17 


10 

QT 

CC2 

BG3 

Last add.—►temp.—► A 

11 

ST 

BG2 

BG4 

Last - 1st—►temp. 

12 

AT 

CC5 

BG6 

Last - 1st + 1 

13 

TP 

BG5 

A 

No. left —►A 

14 

TJ 

BG6 

EE 

Room this load 1 No — *EE 

15 

TV 

DD4 

DD22 ^ 

i 

16 

TP 

CC11 

0 

l Set RP & TP 

17 

os 

BG6 

DD21 

> 

20 

TU 

DD3 

DD22 


21 

22 

RP 

TP 

30000 

30000 

DD23 1 
30000J 

► Words — ►buffer 

23 

TP 

DD4 

a \ 

| 

24 

SA 

BG6 

17 

1 Update address 

25 

SA 

BG6 

25 

> 

26 

LT 

0 

DD4 


27 

RS 

BG5 

BG6 

Set cells left 

30 

ZJ 

FF 

DD31 

Buffer full I no-►FF 

31 

RJ 

WB 

WB1 

Write tape 

32 

RJ 

CR 

CR1 

Clear 

33 

TP 

DD4 

MD4 1 

i Set drum 

34 

TP 

BG5 

MG5 J 

35 

MJ 

0 

MD36 

—►drum 

36 

RJ 

MD36 

MD37 

Exit 

37 

MS 

0 

MD1 

Stop 


CA 

MD40 
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No room this load 



IA 

ME 



0 

TV 

DD4 

EE5 1 

L 

1 

TU 

DD3 

EES ] 

[ Set addresses 

2 

TP 

CC11 

Q ) 

> Set n of RP 

3 

QS 

BG5 

EE 4 J 

4 

5 

RP 

TP 

30000 

30000 

EE 6 ) 

30000 J 

* Fill buffer 

6 

RA 

DD3 

BG5 

Update parameter 

7 

TP 

CC 

BG5 

Clear number of cells left 

10 

RJ 

WB 

WB1 

Write on tape 

11 

RJ 

CR 

CS1 

Clear 

12 

13 

TP 

MJ 

DD3 

0 

Q 1 

DD6 J 

^ Return to finish parameter 


CA 

ME14 


Room 6- buffer not full 


IA 

MF 



0 

1 

TP 

QJ 

DD3 

FF2 

Q 1 

DD33 J 

\ 40 'If 00— ► exit 

2 

RJ 

WB 

WB1 

Write tape 

3 

RJ 

CR 

CR1 

Clear 

4 

MJ 

0 

DD33 

Exit 


CA 

MF5 
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Write Buffer 



IA 

MB 



WB 0 

MJ 

0 

(30000) 

Exit 

1 

TP 

CC14 

A 

I 

2 

ST 

BG5 

A 

> No. blks .—>Q 

3 

DV 

CC7 

BG7 

f 

4 

ZJ 

WB6 

WB5 ' 

\ 

5 

RS 

BG7 

CC6 

1 Index = No. blks -1—>BB7 

6 

SP 

BG7 

0 

f 

7 

AT 

CC6 

BG10 

1 

10 

EF 

0 

CC3 

Set bypass (^J 0 WB11 on 1103A) 

11 

TV 

CC10 

WB21 

Set at BF 

12 

TP 

DD3 

0 1 


13 

LQ 

0 

22 


14 

QT 

CC17 

A 

> Set tape No. in code word 

15 

TP 

CC17 

0 


16 

QS 

A 

CC4 


17 

EF 

0 

CC4 


20 

RP 

10170 

WB22 

1 

21 

EW 

10000 

(30000)' 

> BF + n( 170) 

22 

RA 

WB21 

CC16 

23 

IJ 

BG7 

WB17 

Write n blks. 

24 

MJ 

0 

WB 

Exit 


CA 

MB25 




Clear 



IA 

MR 



0 

MJ 

0 

30000 

Exit 

1 

TP 

CC10 

DD4 

= BF 

2 

TP 

CC14 

BG5 

No. of cells left = 1 buffer load 

3 

RP 

CN10000 

CR ) 

Buffer = Z’s —>exit 

4 

TP 

CC1 

BF J 


CA 

MR5 


Set-up 


IA 

MU 


SU in core 

0 

1 

RP 

TP 

NN30000 
MD 

SU2 \ 

DD J 

Bootstrap 

2 

RJ 

CR 

CR1 

Clear 

3 

MJ 

0 

DD5 



CA 

MU 4 
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Constants 



IA 

MC 


0 

0 

0 

0 

1 

74 

74747 

47474 

2 

0 

77777 

0 

3 

0 

20000 

04000 

4 

02 

00606 

0 

5 

0 

l 

0 

6 

0 

0 

1 

7 

0 

170 

0 

10 

0 

BF 

BF 

11 

0 

07777 

0 

12 

0 

0 

0 

13 

0 

2 

2 

14 

0 

CN 

0 

15 

0 

LA 

LA 

16 

0 

0 

170 

17 

0 

1 

70000 


CA 

MC20 



Explanation 


Core 

Drum 

BG 

MG 


0 

0 

0 

0 

1 

0 

0 

0 

2 

0 

u 

0 

3 

0 

u 

0 

4 

0 

u 

0 

5 

0 

u 

0 

6 

0 

U 

0 

7 

0 

0 

V 

10 

0 

u 

0 

11 

0 

0 

0 

12 

0 

0 

0 


Zero 

Fill buffer - Z’s 
u mask 

Set bypass mode - TCU2 
Write & 128/in-tape #1 
1 in u 
1 in v 

Words/blk. in u 
1st add. of buffer 
Mask 


Set number of cells left 
Last address in buffer 
Words/blk. in v 


of Temporaries and Variables 


Low* 1 1 Check sum 

u is first address 
u is last address 
u = Last-first 

u = No. cells left in buffer 

u = Last-first +1 

v = No. of blocks -1 (Index) 

u = No. of blocks 
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Read Tape N 


ZA 



IA 

ZD 


0 

TP 

0 

ZD2 

1 

MJ 

0 

ZD47 

2 

0 

30000 

30000 

3 

L 0 

0 

22 ' 

4 

QT 

ZB 

ZB1 

5 

TP 

ZB 

Q 

6 

OS 

ZB1 

BB36 

7 

QS 

ZB1 

BB37 

10 

TP 

ZA2 

Q 

11 

QT 

ZB2 

ZB3 

12 

LO 

0 

n 

13 

QT 

ZB2 

A 

14 

ST 

ZB3 

A ) 

15 

AT 

ZB4 

ZB5 J 

16 

TJ 

ZB6 

ZA31 

17 

TP 

ZB7 

ZC2 \ 

20 

RJ 

ZC 

ZC1 J 

21 

TP 

ZA2 

0 ) 

22 

LO 

0 

25 

23 

TV 

0 

ZA25 ^ 

24 

RP 

CN30000 

ZA26 [ 

25 

TP 

BF 

(30000)1 

26 

RA 

ZA2 

ZB10 

27 

TP 

ZA2 

0 

30 

MJ 

0 

ZA3 

31 

TP 

ZB5 

Q ) 

32 

LO 

0 

25 J 

33 

TP 

ZB 11 

A 1 

34 

AT 

0 

ZC2 f 

35 

RJ 

ZC 

ZC1 J 

36 

TP 

ZA2 

Q 

37 

LO 

Q 

25 

40 

TV 

0 

ZA44 

41 

TP 

ZB12 

0 N 

42 

QS 

ZB5 

ZA43 | 

43 

RP 

30000 

ZD45 > 

44 

TP 

BF 

(30000 )J 

45 

RJ 

ZD45 

ZD46 

46 

MS 

0 

ZD 

47 

RP 

NN30000 

ZA3 

50 

TP 

MD 

DD 


CA 

ZD51 



Par. 0 1st add. last add 

Set tape number 

1st add.—»ZB3 

Last add.—>A 
Last - 1st + 1—>ZB5 
Fit—>ZA31 No | 

Fill buffer 

Buffer—^storage 
Update par. 

No.—*-V 
Read to buffer 

Set address 
Mask—►Q 

Buffer-► storage 

Exit 
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Constants and Variables 


ZB 



IA 

CR 


0 

0 

1 

70000 

1 

0 

0 

0 

2 

0 

77777 

0 

3 

0 

( 0 ) 

0 

4 

0 

1 

0 

5 

0 

( 0 ) 

0 

6 

0 

CM 

0 

7 

0 

BF 

LA 

10 

0 

CN 

0 

11 

o 

BF 

BS 

12 

0 

07777 

0 


CA 

CB13 



Mask 
Tape No. 

Mask 

1st address 
Last - 1st + 1 

Standard par. to fill buffer 

Other par. 

Mask 
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Read Tape 


0 

IA 

MJ 

DC 

0 

30000 

Exit 

1 

MJ 

0 

ZC3 

Start 

2 

0 

30000 

30000 

0 address address 

3 

TP 

ZC2 

Q 1 

> 1st add. —*■ 35 

4 

QT 

ZC34 

ZC35 J 


5 

LQ 

Q 

17 


6 

QT 

ZC34 

A 1 

^ Last - 1st +1—>A u 

7 

ST 

ZC35 

A 1 

10 

AT 

ZC37 

A J 


11 

LQ 

Q 

6 1 

^ Address—>BB2 

12 

TV 

Q 

BB2 J 

13 

DV 

BB45 

ZC33 

No. of blks. —>index 

14 

TP 

A 

ZC32 

Store remainder 

15 

TP 

Q 

A 

^ No. of blks. f- zero 1 No 

16 

ZJ 

ZC17 

ZC26 

17 

RS 

ZC33 

ZC36 

Index - 1 

20 

TU 

BB45 

BB2 

No. of words = 170 

21 

RJ 

BB 

BBl 

Read 

22 

RA 

BB2 

ZC31 

Increase address 

23 

IJ 

ZC33 

ZC21 

n blks. 

24 

TP 

ZC32 

A 

^ Remainder zero —»exit 

25 

ZJ 

ZC26 

zc 

26 

TU 

ZC32 

BB2 ' 

^ Read remainder 

27 

RJ 

BB 

BBl . 

30 

MJ 

0 

ZC 

Exit 

31 

0 

0 

170 


32 

0 

0 

0 

Remainder 

33 

0 

0 

0 

No. of blocks 

34 

0 

77777 

0 


35 

0 

30000 

0 

1st address 

36 

0 

0 

1 


37 

0 

1 

0 



CA 

DC40 




- > ZC26 


No I 


147 



Read One Block of Tape 



IA 

DB 


A 

V 

11 T 

1*1 

A 

u 

( oaaaaN 

v ouKjyjvj 

1 

MJ 

0 

BB3 

2 

0 

(30000) 

(30000) 

3 

MJ 

0 

BB4 

4 

EF 

0 

BB43 

5 

EF 

0 

BB42 

6 

TV 

BB2 

BB52 

7 

TP 

BB44 

0 1 

10 

QS 

BB2 

BB51 J 

11 

QT 

BB2 

0 

i o 

LC. 

r rn 
jl r 

DO A C 

UU4 «J 

A 

tt 

13 

ST 

Q 

A \ 

14 

AT 

BB46 

BB53 J 

15 

RJ 

BB53 

BB50 

16 

ER 

0 

A 

17 

ZJ 

BB20 

BB34 

20 

EF 

0 

BB41 

21 

RJ 

BB53 

BB47 

22 

ER 

0 

A 

23 

ZJ 

BB24 

BB34 

24 

EF 

0 

BB40 

25 

RJ 

BB53 

BB47 

26 

ER 

0 

A 

27 

ZJ 

BB30 

BB34 

30 

EF 

0 

BB37 

31 

TP 

CA10 

PC2 1 

32 

RJ 

PC 

PCI J 

33 

MS 

0 

BB1 

34 

EF 

0 

BB42 

35 

MJ 

0 

BB 

36 

2 

602 

10000 

37 

2 

14 

10001 

40 

2 

1 

70000 

41 

2 

1 

60000 

42 

2 

1 

50000 

43 

0 

20000 

04000 

44 

0 

07777 

0 

45 

0 

170 

0 

46 

RP 

0 

(30000) 

47 

EF 

0 

BB37 

50 

EF 

0 

BB36 

51 

RP 

10000 

BB53 \ 

52 

ER 

10000 

(30000)1 

53 

0 

0 

0 i 

54 

ER 

10000 

A / 


CA 

DB55 



n _-z 4. 

LAH 

Par. =00 n address 
(on 1103A = MJ 20000 BB5) 

Set bypass (1103A = MJ 0 BB5) 
Set normal bias 
Set address 

Set n of RP 

n— >Q 

1 7A ^ A 
l i v - 

170 > n—>RP 
Read 

IOA —> A 

Parity | No—> 34 

Set high 

Read 

IOA—>A 

Parity ^ *o->34 

Set low 
Read 

IOA—>A 
Parity j 
Move back 

Print PARITY 

Stop for rereads 

Set normal (1103A = MJ 0 BB35) 

Exit 

Read one blk. fwd. 

Move back one blk. 

Low 
High 
Normal 
Set bypass 


Move back one blk. 
Read one blk. 


RP 

Throwaway 
BB55 in core 
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Print 


PC 



IA 

PD 



0 

MJ 

0 

30000 

Exit 

1 

MJ 

0 

PC16 

Start 

2 

0 

30000 

0 

0 address n 

3 

TP 

PC 2 

0 


4 

QT 

CA5 

A45 


5 

ST 

CA6 

PC20 


6 

TU 

PC2 

PC 7 


7 

SP 

30000 

52 


10 

PR 

0 

A 


11 

SS 

A 

6 


12 

ZJ 

PC10 

PC13 


13 

RA 

PC7 

CA7 


14 

IJ 

PC20 

PC 7 


15 

MJ 

0 

PC 


16 

RP 

4 

PC3 


17 

PR 

0 

PC4 


20 

0 

0 

0 

Index 


CA 

PD21 
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Constants 

(From 1103A Unicode Service Routines) 


IA 

CA 0 0 

1 67 

2 30 

3 30 

4 30 

5 0 

6 0 

7 0 

10 0 

11 0 

12 0 

13 47 

14 20 

15 46 

16 25 

17 04 

20 04 

21 20 

22 57 

23 47 

24 04 

25 22 

26 01 

27 15 

30 24 

31 57 

32 24 

33 42 

34 2 
CA 


CT 


170 

zz 

50342 

65127 

77657 

36566 

47776 

62452 

77777 

77777 

0 

77777 

0 

1 

1 

0 

CA13 

10 

CA23 

11 

77777 

0 

12203 

02204 

12120 

31204 

15301 

21401 

42574 

24704 

24013 

01201 

26031 

20412 

12203 

02224 

42040 

40404 

07033 

40601 

34061 

41603 

20042 

42524 

20070 

40130 

20040 

30604 

20121 

70304 

52420 

40447 

01301 

20157 

04040 

40404 

200 

10000 

CT35 



Sentinel 


Rewind #1 
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4. UNICODE SAMPLE CODING 




4. UNICODE SAMPLE CODING. 


a. Matrix Inversion by UNICODE 

Assume A is the matrix to be inverted and X C is the i-th approximation 
0 T 

to the inverse. Set C to A . Then for the i-th iteration (i=l, 2, .... n 
where n is the rank of the matrix) 

i C. , = i_1 C.. for k=i 
jk _l_k 



V. = 1 “ 1 C..- 1 C. .(A. 1_1 C,) for k t i 

Jk jk ji i k 

where A. is the i-th row of A and ‘’c. is the i-th column of ^C. After n 

l l 

repetitions C fi = Inverse of A. 

Next an estimate of the error is made 

22 A n c 

Average error = (ii i i)-n 

2 

n 

If the average error is greater than the error allowed by the routine, 
n 0 

n C is used as a new value for C and a new approximation is made. Sentence 
2.7 of the program establishes the error allowed. Reducing ae (allowable 
error) to a smaller amount may increase the number of iterations needed to 
obtain the desired inversion. 

To run the program for a different size matrix, change sentences 1, 2.5, 
and 3. In 2.5, n is given the size of the new n x n matrix. In 3, m is 
given a numerical value 1 less than n. The numerical value of n determines the 
new dimensions used for the subscripted variables in sentence 1. 

The input matrix A must be prepared on a data tape. It is brought into 
the computer by the Automatic Data Read-In. 
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Unicode program . 
mat i’ j. x ’l vivs]r’ 5 j. c n 


^ -a ( 1 v n.\ o / *! n !■■"') •'{ i n .) 

■■■- Oo \ _u ^ y — V / J +■ \ -‘-■U j J_^ / y ... V —^ y 


2 

2.5 
2.7 

5.1 

5.3 

4. 

5 

5 

5.5 

7 

7.5 


J-U 
1 1 


Ip 

17 

15 

16 


19 

20 
21 

21.5 


ctimensiu 
start 
n=10 
ae=C.01 

irt=9 . 

vary i 0 (1)n 3 e r:t e nc e 
vary j 0(l)rs 
list a(i, ,1}, 
vary i 0(l)m 
0(l)n 


.1 l hru 5.5 

sentence 3.3 then resume J.l 
1 „ e . tare 4- • 

5 thru 6 then Jump to 
sentence o then resume 4 . 


c(i.j)=a(j,i) 


vary i C(l)m sentences 7.5 thr 
vary k 0(l)m sentences 6 to.ru 

varv .1 0 (1 )m sentence 10 then resume 
r(k)=r(k)+(a(i,.j)Xc(-,k)) . 

varv J 0(1 )m sentence 12 then Jump to 
c (^J ,i )=c(J .i } 7r(i ) 

la=G . 
lb=l . 

.)!> 

. )n sentence It 
c(j,k)=c(.j,k)-(c( J,i) X r(k 
if lb = m Jump to 2;5 
la = 1-4-2 . 


n J aiuo t o 


vary k la(l)lb sentences 17 thru If 
varv J 0(1 )n sentence It then resume 15 

-O 

- / j • 


Jump to 


1 h 


m 


25 

24 

24.1 
24.15 

24.2 
24.25 
24.30 
24.35 
24.39 

24.4 

24.5 

2k. o 

25 
25 

zzzzzzeiid 


if la 0 m .jump to 24.1 
junra to sentence 16 
1 = 1+1 . 
resume 7 
q=0 

vary j. o(l)m sentences 24.2 thru 24.3 then jump to 24.35 
vary k 0(l)m sentences 24.25 thru 24.3 then resume 24.15 
vary j 0(1)m sentence 24.3 then resume 24.2 
a = q + (a(i, j ) X c( t i,k)) . 
e = (c-rT A" 
type e . 

if ! ej G ae, jump to 6.5 

vary i 0(l)m sentences 24.6 thru 25 then jump to 26 
vary k 0(l)n sentence 25 then resume 24.5 
list c(i,k),i,k, tape 4, 
stop . 


of tape 
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b. Floating Point to Fixed Point Sub-Program 

This is a method of converting a floating-point number to the 
nearest integer. The sub-program to do this is shown operating at sentences 
100 to 106. Controlling sentences of the main program which reference the 
sub-program are given here as sentences 50-51. 

Note that the Vary loop shown is never finished. A jump out is made 
to exit sentences when the nearest integer is found. 

50. Compute Fix (Z(J))a. 

51. I = KKA. 

100. Fix (Q(KA))A. 

101. ZZ = |Q(KA) | A . 

102. Vary KK 0(1) 999999 with ZZ ZZ(-l) -2 Sentence 103A. 

103. If ZZ < 0.5 jump to 104 A. 

104. If Q (KA) > = 0 jump to 106A . 

105. KK = -KK A . 

106. Exit A . 


155 



1 

2 

2.1 

2.2 

2.3 

3.1 

3.2 

3.3 

3.4 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

16.1 

16.2 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 


c. Linear Programming Application. 

Unicode program 

linear program 
original dantzig method 


dimension a(17), x(8,17) t z(17), delta(17), c(l7), psi(8), p 8), temp(17) t work(8) 
start 


If = 7 

ig - 16 


Note: Only sentences 1 - 2.3 need be changed 
for matrices of different size. 


g = 16 . 
read x 
read c . 
read psi . 
read p . 


x(0 ? 0) = x(0 t 0) + 1 . 

vary i 0(1)lg sentences 6 thru 8 
z(i) = 0 . 

vary j 1(1)If sentence 8 . 

z (i ) - z (i ) + x(j,i) X psi(j) . 
vary i 0(1)lg sentence 10 
delta(i ) = z(i )-c(i ) . 

temp(O) = 0 
k = 0 . 

vary i 1(1 )lg with b l(l)g sentences 14 thru 17 . 

if temp(O) G delta(i), jump to sentence 16 . 

resume 13 . > 

vary j 1(1 )lf sentence 16.1 
if b - p(j), jump to sentence 15 
temp(O) = delta (i) . 

k = i ^ 

if k = 0, jump to sentence 44 

type k 



temp(O) = 1000 

vary j 1(1 )lf sentences 22 thru 29 . 

if x(j,k) G 0, jump to sentence 25 
temp(j) - -1 
resume 21 

if x(j f 0) L 0, jump to sentence 23 

temp(j) - x(j,0)/x(j f k) . 

if temp(j) G= temp(O) jump to sentence 24 




> 


BEGINNING OF CYCLE 
Cycle Count 

0) z. 
i 



Find smallest negativeS 


If no negative 8 is found, go 
to output 

Type k = subscript of incoming 
vector 


g _ min X j 

i x.. 
lk 

Find mr (position in basis) 
for out going vector 
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(Continued) 


28 temp(O) = temp(j) 

29 mr = j 

30 type mr . 

31 psi(mr) = c(k) . 

32 p(mr) = x(O t k) . 


33 

34 

34.1 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

58 

59 

60 
61 
62 


vary j l(l)lf sentence 34 . 

temp(j) = x(j,k) . 

work(O) = x(mr,k) . 

vary i 0(1)lg sentences 36 thru 42 . 

x(mr,i) = x(mr,i)/work(0) 

if x(mr,i) not= 0, jump to sentence 40 . 

resume 35 . 

resume 40 

vary j 1(1 )lf sentences 41 thru 42 . 

if j = mr, jump to sentence 39 . 

x(j,i) = x(j ,i) - x(mr,i) X temp(j) . 
jump to sentence 4 

vary j 1(1)If sentence 45 

list p(j),j,tape 3,((variables in basis)) 

vary i 0(1)lg sentence 47 . 

list delta(i),i,tape 3, ((delta)) . 

vary j 0(1)lf sentences 49 thru 50 . 

vary i 0(1)lg sentence 50 

list x(j,i),j,i, tape 3 ((final tableau)), 

(matrix), (row), (column) 

vary i 1(1 )lg sentence 52 

temp (i) = 0 . 

vary j 1(1 )lf sentences 54 thru 56 . 

vary i l(l)lg sentence 55 . 

if x(0,i) = p(j), jump to sentence 56 

temp(i) = x(j,0) . 

vary i 1(1)lg sentence 59 . 

list temp(i),i,tape 3, ((values of variables)) 

vary j l(l)lf sentences 61 thru 66 

read a . 

work (j) = 0 


} 

J 

: 

> 




> 


• J 


\ 


Type mr 

3) place coefficient of in¬ 
coming vector in new position 

4) place number of incoming 
vector in new position 


Save column k and = a 


5) calculate incoming row 

6) calculate remaining parts 
of matrix by columns 

Go to start next cycle 

END OF CYCLE - START OUTPUT 

List numbers of variables in 
basis 


List S's (shadow prices) 


List whole final matrix 


Find and list values of 
variables 


Compute and list back solution 
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63 vary i l(l)lg sentences 64 thru 65 . 

64 work(j) = work(j) + temp(i) X a(i) . 

65 z(j) = work(j) - a(0) . 

66 list z(j),j,tape 3, ((back solution)^, 

(deviation), (equation) 

67 c(O) = 0 . 

68 vary i 1(1 )lg sentence 69 

69 c(0) = c(0) + temp (i) X c(i) . 

70 list c(0), tape 3, ((profit function)) . 

71 type c(0) . 

71.1 list x(0,0), tape 3, ((cycle count)) . 

71.2 type x(0,0) 

72 stop . 
zzzzzzend of tape 


(Continued) 

>■ Compute and list back solution 

J 


l Compute and type and list 
profit function 

J 


> 


Type and list cycle count 


Arrangement of the data tape : 

A(I) 7 sets of A (rows of original equation) 
Y(J,I) 


Cycle 

counter 

0 

Vector numbers 

1 2 3.16 



Con¬ 
stant^ 
terms 


1 0 
c 2 0 


'7 d 


X 1 2 X 1 3- ' • 

• • X 1 16 

CO 

CM 

X 

CM 

CM 

X 

• • X 2 16 


X 7 1 X 7 2 X 7 3' ‘ 


. x 


7 16 


Constant Coef- Coef- Coef- 
term ficient ficient ficient 


'1 


Coefficient 

matrix 


16 


j 


C (I) 0 Cj C 2 C 3 
PSKJ) 0 ^ 

P (J) 0 Pj p 2 p 3 


* * ^16 coe ^^i c i ents °f profit function 

. . ^ coefficients of profit function of the vectors in the basis 

. . vector numbers in basis 


The slack variables and artificial variables must be inserted in the data tape. 
The starting basis is the unit matrix. 
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This column 
outside tab¬ 
leau need 
not be saved 
(for outgoing 
vector) 


How the new tableau is computed from the preceding one: (Method taken from Charnes, Cooper, Henderson, "An Introduction to Linear Programming".)* 
x ik are the values of column k in the old tableau, k being the number of the vector that was selected in the old tableau to enter the base. 
x f . are the values in the outgoing row. 

= Xj Q are the coefficients of P^ (the constants in the input data). 



The new tableau is generated in the steps 0-1-2-3-4-5-6. 

But watch. 1 : Compute for step 6 only columns, where step 5 gave element / 0 and x^ ^ 0; otherwise column remains unchanged.. In this example the 
slack and artificial variables (10-16) are placed before the real variables (1-9). The sequence is unimportant but the constant vector Pq must 
remain in the first column. The coded program has in the data tape the variables in their natural order 1, 2...10...16. 





5. UNICODE CARD INPUT 




5. UNICODE Card Input 


Card input to UNICODE is possible without any change in the UNICODE Master 
Tape if a Card-to-Excess-Three Routine is written and added to the UNICODE 
Service Routines. Then the tape produced by this routine with card input may 
be used in UNICODE similarly to the tape produced by the Flex-to-Excess-Three 
Routine. 

Assuming only 48 characters available on cards, certain restrictions in 
the writing of the UNICODE programs must be adopted. Superior figures can be 
eliminated by the use of the symbol POW followed by regular figures. Only 
one of the two signs, > and < , can be used. The space is simulated by no 
punch on the cards. The dash becomes the minus sign. No simulation is needed 
for the comma and period. Counting the 26 alphabetic, 10 numeric, and the 4 
mentioned, only 8 available characters remain. The operator can obtain the 
essential UNICODE characters needed by an arbitrary assignment of characters 
which will later be changed by the conversion routine to the excess-three 
value desired. The following is one such possible assignment. 


Excess-Three 

Character 

Card 

Character 

Card 

Punching 

/ 

/ 

0 - 1 

< 

@ 

4-8 

❖ 

* 

X - 4 - 8 

+ 

& 

Y 

- 

u 

3-8 

1 

• 

Y - 4 - 8 

( 

$ 

X - 3 - 8 

) 

% 

O 

1 

CD 


In the above assignment, there is no greater than ( > ) sign. If in 
the IF sentence, a term such as "X > Y" is wanted, it should be written as 
"Y < X”. Similarly, if a term "X > = Y" is wanted, it should be written 
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"Y < = X”. If the converse of the latter is wanted, in addition, in an IF 
sentence, it is supplied automatically by a jump to the following sentence 
on failure of the < = relation to hold. Further flexibility can be introduced 
here by making this next sentence a JUMP sentence. It can be seen that only 
two clauses are now permitted in the IF sentence, but, because of the 
possibilities of combining the IF sentence with a subsequent JUMP sentence, 
there is no real loss in generality. 

Each 80-column card should be considered a complete blockette. The con¬ 
version routine should use spaces to fill out the remaining 40 characters in 
the blockette. 

If a sentence overruns from one card to another, care must be taken not 
to break a symbol into two parts. One must always end the punching of a card 
on a divider or a space. Any number of spaces may be put between symbols 
of a UNICODE sentence. Thus, 40 or more spaces between symbols in a sentence 
will not cause trouble. However, putting only part of a symbol on one card 
will destroy its meaning. 

The first 6 positions of a regular UNICODE program card are reserved for 
the line number. The first 6 positions of an overrun program card must not 
be punched. On an overrun Data card, no indentions are needed. Of course, 
no figures may be broken at the end of a Data card. Thus, on Data cards, 
scientific notation numbers may not be broken into separate parts by use of 
spaces because spaces indicate the start of a new figure on Data lists. On 
the other hand, on a program card, the symbols making up a scientific notation 
number may be separated by spaces. Use of a comma following the last figure 
on a Data card will save computer time because it stops further analysis of 
the blockette and ignores the spaces used to fill the line. 

The PRINT sentence, being limited to 6 blockettes, is somewhat limited 
in size by the use of cards, but this restriction is easily overcome by 
writing two or more PRINT sentences in succession. 

The rules of tape preparation explained in the UNICODE Manual must be 
simulated when using cards. Thus, whenever blockettes of spaces are needed 
to fill out a block, the right number of blank cards must be inserted. 
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Card input for UNICODE programs and Data can be used at a computer in¬ 
stallation which has no direct provision for card input to the computer if 
there is available a Card-to-Magnetic Tape Converter. If the cards have been 
properly prepared in accordance with the conventions described here, they can 
be run through the Card-to-Magnetic Tape Converter and this output tape then 
translated to a UNICODE tape by means of a short conversion routine. 

Though this latter routine is at present specifically adjusted to the 
arbitrary assignment of characters given earlier in this paper, it can be 
readjusted to any other assignment merely by modifying the order or content 
of two 8-line tables. 
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Cards to UNICODE Tape 


This routine has as input a magnetic tape obtained from cards via the 
Card-to-Magnetic Tape Converter. The characters on this tape are changed, 
as needed, to the excess-three equivalents which are recognized by UNICODE. 

The space-fill option for no punch should be used in producing the input 
tape on the Card-to-Tape Converter. Further conventions followed in writing 
the programs and Data lists and punching the cards are described in the 
write-up, UNICODE Card Input. The arbitrary assignment of card characters 
given in the table therein is assumed to be standard. No special translation 
is needed for the first three characters of this table after the Card-to-Tape 
conversion. However, the remaining five characters have to be translated 
from one excess-three value to another before they are acceptable to UNICODE. 

When it is known that none of these five characters have been used, there 
is no need to use this routine. The tape from the Card-to-Tape Converter may 
be used directly as an input to UNICODE. This will happen most frequently 
with Data lists. If a Data list is preceded by a Data Index, which uses equal 
(=) signs, of course, it will still be necessary to run the tape from the Card- 
to-Tape Converter through this conversion routine. Other than the equals sign 
which only occasionally occurs in a Data Index, only one character on Data 
lists, the semicolon, has no counterpart among the usual card characters. The 
semicolon should always be replaced by the comma in Programs or Data lists 
using cards. Thus, many sets of Data list cards, when properly punched and 
run through the Card-to-Tape Converter, will produce a tape completely 
acceptable to UNICODE. 

If a Card-to-Magnetic Tape Converter is available, it will be found a more 
economical procedure to prepare all Data lists in this way because of the 
greater ease of correction. This will be true regardless of whether or not 
the program has been prepared on cards. 

To translate the five characters mentioned above, the following two tables 
of excess-three values are used in this routine: 
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Card-to-Tape Produced Excess-Three Value 


00 00000 00016 & 

00 00000 00035 * 

00 00000 00062 : 

00 00000 00055 $ 

00 00000 00075 % 

UNICODE Accepted Code for Character 

00 00000 00063 + 

00 00000 00076 

00 00000 00042 | 

00 00000 00017 ( 

00 00000 00043 ) 


Each of these tables is contained in an 8-line space. Thus, they can be 
increased in size up to eight lines and altered as needed to produce a 
different conversion. The order within the tables is significant. Thus, 
recognition on an input tape of the third value in the first table would give 
a substitution on the UNICODE tape of the third value of the second table. 


There are two versions of this routine; one for the 1103A and one for the 
1105. With the 1105 version an MJ2 setting indicates that Tape Control Unit 2 
is being used. No MJ2 setting indicates use of TCUl. No settings are needed 
with the 1103A version. 


To operate either version, after checking whether an MJ2 setting is needed, 
put the tape produced by the Card-to-Magnetic Tape Converter on any Uniservo. 

The number of this Uniservo should be placed in A^. In Q v put the number 
of the Uniservo on which the UNICODE tape is to be written. The octal number 
of input blocks must be in Q y . 

Start with beginning address at 77460. The routine transfers itself to 
core where it operates from 6300-6736. Both tapes are rewound on completion 
of the translation. The computer stops with PAK at 6300, which address, since 
the core is not restored, can be used for a start of any additional translation. 
No check is made for illegal parameters. A failure to recover from a parity 
error after 5 additional reads with varying bias and direction will cause 
a computer stop with the print-out: PY. Another 6-read trial can be obtained 
at this point by pushing the START button. 
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The flex copy of this routine loads in the drum from 77460-77714. It may 
be added to the bioctal tape of UNICODE Service Routines. It has not been 
included on any of the tapes of the UNICODE System but flow charts and 
3 nnot. 3 t. 0 d codincf for it. 3rs shown following this write-up. 


On both versions of the routine the first table is located at 77675 and 
the second table at 77705. A change in the number of significant values in 
the tables would necessitate a change in the repeat instruction that controls 
use of the first table. On the 1103A version this instruction reads 75 20005 
06345 and is located at 77515. On the 1105 version this instruction reads 75 
20005 06362 and is located at 77532. For example, an increase to 8-line sets 
of significant values in the tables in the 1105 version would require a change 
of the content of 77532 to 75 20010 06362. 
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Flow Charts for Routine to Convert Card-To—Tape Converted 
Tape to UNICODE Tape (1103A or 1105) 







170 


4 


Extract a Char¬ 
acter from Word 


Is Character One 
of Those that is to 
Be Changed? 




Yes 


m 


l 


Replace Char¬ 
acter by One 
Which Unicode 
will Recognize 



Stop 






Read Tape Back¬ 
ward 1 Block 


'is There a ''\ye 
sParity Error?, 


Set Low 
Bias 


Read Tape For¬ 
ward 1 Block 


Parity Reread Routine 


f Is There a ' 
^Parity Error?, 


Read Tape Back¬ 
ward 1 Block 


Set Normal 
Bias 


Move Tape For¬ 
ward 1 Block 


Set Normal 
Bias 


Is There a 











Regions for 1103A or 1105 Routine To Convert Card-To-Tape 
Converted Tape to UNICODE Tape 


RE DH77460 
RE HL6300 
RE BL6377 
RE TC 6460 
RE NU6513 
RE BE6522 
RE NE6523 
RE UC6533 
RE TS6547 
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1105 Routine to Convert Card-to-Tape Converted Tape to UNICODE Tape 



IA 

DH 


RP 

30233 HL 


TP 

DH 2 HL 

HLO 

LA 

A 14 

1 

TP 

A UC 6 

2 

TP Q UC 4 

3 

MJ 

20000 hl 5 

4 

MJ 

0 HL 11 

5 

MJ 

50000 

6 

TP 

TC 1 UC 13 

7 

EF 

0 TC* 3 

10 

MJ 

°HL 14 

11 

MJ 

40000 1 

12 

TP 

1 2 

TC UC A ° 

13 

EF 

0 tc 12 

14 

TP 

TC 26 Q 

15 

RP 

iooio HL i 

16 

12 2 
QS UC TC 

17 

SP 

UC 6 0 

20 

AT 

TC 2 UC 

21 

TP 

TC Q 

22 

QT 

uc 4 uc 12 

23 

LO A 25 

24 

ST 

TC 23 UC 5 

25 

TP 

TC 22 UC 12 

26 

TV 

uc 4 uc 12 

27 

LA 

ro 

0 ^ 

30 

TP 

A UC 4 

31 

AT 

TC 3 UC 1 

32 

17 

0 T( ,5 

33 

17 

0 UC 

34 

75 

10170 HL 3 ' 

35 

76 

10000 TS 


Transfer Routine from drum to core 


Number of input Uniservo to UC6 in shifted position. 
Storing q in UC4 

Is MJ2 set? If so, jump to bypass buffer 2 
Jump to bypass buffer 1 
Is Buffer 2 active? 

Set up TCU2 selection 
Bypass buffer 2 

Is buffer 1 active? 

Set up TCUl selection 
Bypass buffer 1 

Put TCU selection in tape handling parameter 


"Read forward 1 block from input servo" set up in UC 


u of Initial 0 transferred to A 

v 


Index of number blocks formed in UC5 


v of Initial Q transferred to UC4 in shifted 
position. This is output servo number 


"Write 1 block to output servo" set up in UCl 
Set normal bias 
Read forward 1 block to core 
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36 

76 0 A 

37 

ZJ HL 40 HL 41 

40 

RJ BL BL 1 

41 

TU TC 21 HL 45 

42 

21 47 

TU TCT 1 HL 4 ' 

43 

20 2 

TP TC UC 

44 

3 

s 

t—• 

■ o 

H 

to 

45 

LQ TS 6 

46 

TP TC 14 Q 

47 

QT TS A 

50 

RP 20005 HL 62 

51 

EJ NU HL 52 

52 

SN 0 17 

53 

SA HL 50 0 

54 

TU A HL 61 

55 

LQ HL 45 Q 25 

56 

TV Q HL 61 

57 

RA HL 61 TC 15 

60 

TP TC 14 Q 

61 

„ 30000 3000 
yo 

62 

2 4^ 

IJ uc^ hl 4 ° 

63 

4^ 17 

RA HL 4 ° TC 1 ' 

64 

47 17 

RA HL 4 ' TC 1 

65 

IJ UC 3 HL 44 

66 

17 0 UC 1 

67 

75 10170 hl 71 

70 

77 10000 TS 

71 

IJ UC 5 HL 33 

72 

RA UC 6 TC 4 

73 

17 0 UC 6 

74 

RA UC 4 TC 4 

75 

17 0 uc 4 

76 

MS 0 HL 


1 

I 


Is there a parity error? 

Recover from parity error by attempted rereads 
ot (jiffersnt biss 

Set up start of analysis of block at 1st address of 
buffer, TS 

Index of greatest possible (162) number of words 
set up. Rest of block words are spaces 
Index for number characters in word 

Character to A for examination 

Is character one of 1st table? 
r—»u of substituting command 

Location in block to v of substituting command 

r + BE to u of Substituting command to get proper 
character of 2nd table 

Character substitution (2nd table char, for 1st 
table char.) 

Index jump on no. characters in word 
Set-ups to examine next word 

Index jump on number possible non-space words in 
block 

Write 1 translated block on Output Uniservo 

Index on number of blocks 
Rewinds input Uniservo 

Rewinds output Uniservo 

Stop with core starting address in PAK 
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BL 


Parity 

Reread 

Routine 


0 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 


MJ 

TV 

TP 

TP 

AT 

17 

76 

RS 

IJ 

76 

ZJ 

17 

17 

75 

76 
76 

ZJ 

TV 

TP 

17 

76 

RS 

IJ 

76 

ZJ 

17 

17 

75 

76 
76 

ZJ 

TV 

TP 

17 

76 

RS 

IJ 


0 30000 

TC 25 BL 6 
TC 24 UC 10 
TC 10 A 
UC 6 UC 7 

°uc 7 

10000 ts 167 ^ 

BL 6 TC 23 
UC 10 BL 6 
0 A 

BL 13 BL 52 

0 TC 6 
0 


UC 
10170 

10000 

0 . 


BL 

TS 


17 


BL 21 BL 57 
TC 25 BL 24 
TC 24 UC 10 
0 UC 7 

10000 XS 167" 

BL 24 TC 23 
UC 10 BL 24 


BL 31 BL 52 
0 tc 7 

0 UC 
10170 

10000 

0 A 


BL 

TS 


35 


BL 37 BL 57 


TC 25 


BL 


42 


TC 24 UC 10 

0 UC 7 
10000 ts 167 

BL 42 TC 23 
UC 10 BL 42 - 


Set-up to read from last address of buffer 
Index of number of words in buffer to UC10 

Read backward 1 block input Uniservo 


Providing 170 external reads into descending 
addresses 

Is there a parity error? 

Set low bias 

Read forward 1 block input Uniservo 

Is there a parity error? 

Set-up to read into last address of buffer 
Index of number of words in buffer to UC10 
Read backward 1 block input Uni servo 

Providing 170 external reads 


Is there a parity error? 

Set high bias 

Read forward 1 block input Uniservo 


Is there a parity error? 

Set-ups for reading backward 

Read backward 1 block input Uniservo 
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Is there a parity error? 


45 

76 0 A 

46 

ZJ BL 47 BL 52 J 

47 

75 10003 BL 5l1 

50 

PR 0 TC 27 J 

51 

MS 0 HL 32 

52 

17 0 TC 5 

53 

TP TC 11 A | 

54 

6 11 ' 
AT UC° UC 

55 

17 0 UC 11 J 

56 

MJ 0 BL 

57 

17 0 TC 5 

60 

MJ 0 BL 

TC 0 

1 0 0 

1 

2 0 0 

Constants 2 

3 

0 602 0 

0 646 0 

4 

0 200 0 

5 

0 1 50000 

6 

0 1 60000 

7 

0 1 70000 

10 

0 612 0 

11 

12 

0 4 1 

0 10000 04000 

13 

0 20000 04000 

14 

0 0 77 

15 

0 BE 0 

16 

0 0 5 

17 

0 1 0 

20 

0 0 161 

21 

0 TS 0 

22 

0 0 0 

23 

0 0 1 

24 

0 0 167 


n .-• ..i . tt. _ _ _ j. -nv 

rrifii uui carnage return ri 

Stop with PAK at complete restart of at¬ 
tempt to read block 

Set normal bias 

Move forward Input servo 1 block 


Exit from parity read 

Set normal bias 

Exit from parity read 

TCUl indicator 

TCU2 indicator 

Read forward 1 block & stop 

Write 1 block and stop 

Rewind tape 

Normal bias 

Low bias 

High bias 

Read backward 1 block 
Move forward 1 block 
Bypass buffer 1 
Bypass buffer 2 
Mask 

Address just before 2d table 
Index for characters in a word 
Adder 

Index for greatest possible number (162) 
words in block 

Starting address of buffer 

Zero 

Adder 

Index for number words in block 
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25 

0 0 ts 167 

Address of last word in block 

26 

77 0 0 


Mask 

27 

0 0 45 


Carriage return 

30 

0 0 15 


P 

31 

0 0 25 


Y 

32 

0 77777 

0 

Mask 

n 

0 0 16 

& 

First Table Card-to-Tape Produced 

u 

1 

0 0 35 

# 

Excess-Three Values 

2 

0 0 62 



3 

0 0 55 

$ 


4 

0 0 75 

0/ 

/o 


5 

0 0 0 



6 

0 0 0 



7 

0 0 0 



0 

0 0 63 

+ 

Second Table Excess-Three Values 

1 

0 0 76 

ZI 

Accepted by Unicode 

2 

0 0 42 

1 


3 

0 0 17 

( 


4 

0 0 43 

) 


5 

0 0 0 



6 

0 0 0 



7 

0 0 0 




CA DH 235 



Temporaries Used 

UC 0 Read forward 1 block of tape 

1 Write 1 block on output tape 

2 Index for characters in a word 

3 Index for total words possible in block (162) 

4 Holds initial value of Q. Later holds output tape no. shifted 

5 Index for number of blocks 

6 Holds initial A v shifted of input tape number 

7 Read backward 1 block 

10 Index to read backward 

11 Move forward 1 block 

12 Temporary to get output servo no. shifted to right position 

13 Holds Tape Control Unit No. in "Operation" part of word. 

TS Buffer of 170^ lines used for reading into and writing from after 
translation to UNICODE characters. 
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1103A Routine to Convert Card-to-Tape Converted 
Tape to UNICODE Tape 


HLO 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 


IA 

RP 

TP 

LA 

TP 

AT 

TP 

TP 

QT 

LQ 

ST 

TP 

TV 

LA 

TP 

AT 

17 

17 

75 

76 
76 

ZJ 

RJ 

TU 

TU 

TP 


DH 

Qeo 

UV/4- 


QQ 


HL 


DH 2 HL 
. 14 


A UC" 

TC UC 

4 

Q UC 
25 

TC 3 Q 

uc 4 uc 12 

. 25 


TC 11 UC 5 


TC 10 UC 


12 N 


4 12 

UC UC 1 ^ 


UC 


12 14 


UC 

13 


A UC 

TC 1 

0 TC 

0 UC 
10170 

10000 

0 . 


1 


HL 

TS 


21 


HL 23 HL 24 


BL BL 


1 


TC 7 HL 30 
TC 7 HL 32 
TC 6 UC 3 


27 

TP 

TC 4 UC 2 

6 

30 

LQ 

TS 

31 

TP 

TC 2 Q 

32 

QT 

TS A 

33 

RP 

20005 H[ 45 

34 

EJ 

NU HL 35 


Transfer routine to core from drum and 
jump to start in core 

Number of input Uniservo to temporary in 5th- 
digit position 

Parameter for tape read to temporary 
Store q in temporary 


Forming index for number blocks in temporary 


Output tape number in 5th position to temporary 


Forming parameter for tape write in temporary 
Set normal bias 
Read 1 block of tape 

Providing I70g external reads 

Is there a parity error? 

Jump to parity reread routine 

Set up examining loops to beginning of block 

Index for 162„ (maximum possible non-space) 
words in block set up 

Index for 6 characters in line set up 


Is a character one of those in first table? 


178 



35 

36 

37 

40 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 
60 
61 


SA HL u 
44 

TU A HL 

LQ HL 30 Q 25 
44 

TV Q HL 

44 3 

RA HL TC 

TP TC 2 0 
AC 30000 30000 

IJ UC 2 HL 30 


RA HL 30 TC 5 
RA HL 32 TC 5 
IJ UC 3 HL 27 


17 0 UC 1 
75 10170 H[ 54 

77 10000 


IJ UC HL ° 

RA UC 6 TC 12 \ 

17 0 UC 6 \ 

RA UC 4 TC 12 ) 

17 0 UC 4 

0 

MS HL 
0 0 0 N 

0 0 0 

0 0 0 

0 0 0 

0 0 0 

0 0 0 1 Unused fill 
0 Q 0 [ same regions 

0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 
0 0 0 , 


Replace character by the corresponding 
one in second table 


Jump back to beginning of loop toexamine 
next character in line 

Set-ups to examine next line in block 

Jump back to loop to examine next line. Is 
block used up? 

Write completely translated block to output 
Provide 170g external writes 

Have number of blocks been exhausted? 

Rewind input Uniservo 

Rewind output Uniservo 

Stop with core starting address in PAK 


lines put in so this routine will occupy 
as 1105 counterpart 
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BL 0 

MJ 

0 30000 

Parity 

1 

TV 

TC 20 BL 6 

Reread 

Routine 

2 

TP 

TC 17 UC 10 
TC 16 A 


3 

TP 


4 

AT 

UC 6 uc 7 


5 

17 

°uc 7 


6 

76 

10000 ts 167 


7 

RS 

BL 6 TC 11 


10 

IJ 

UC 10 BL 6 


11 

76 

0 A 


12 

Z,T 

BL 13 BL 52 


13 

17 

0 tc 14 


14 

17 

0 UC 


15 

75 

10170 BL 17 


16 

76 

10000 TS 


17 

76 

0 A 


20 

ZJ 

BL 21 BL 57 


21 

TV 

TC 20 BL 24 


22 

TP 

TC 17 UC 10 


23 

17 

0 uc 7 


24 

76 

10000 XS 167 


25 

RS 

BL 24 TC 11 


26 

IJ 

UC 10 BL 24 


27 

76 

0 A 


30 

ZJ 

BL 31 BL 52 


31 

17 

0 jq15 


32 

17 

0 UC 


33 

75 

10170 bl 35 


34 

76 

ioooo TS 


35 

76 

0 A 


36 

ZJ 

BL37 BL 57 


37 

TV 

TC 20 BL 42 


40 

TP 

TC 17 UC 10 


41 

17 

0 UC 7 


42 

76 

10000 XS 167 


43 

RS 

42 11 

BL TC 


44 

IJ 

ucl ° BL42 


Set-up to read from last address of buffer 
Index of number of words in buffer to temporary 


Read backward 1 block of input Uniservo 


Providing I70g external reads into descending 
core addresses 

Is there a parity error? 

Set low bias 

Read forward 1 block input tape 
170 external reads provided 

Is there a parity error? 


Read backward 1 block of input tape to 
descending core addresses 

Is there a parity error? 

Set high bias 

Reading forward 1 block input tape 
Is there a parity error? 


Read backward 1 block of input tape to 
descending core addresses 
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45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 
60 

TC 0 
Constants 1 
2 

3 

4 

5 

6 

7 

10 

11 

12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 


76 

ZJ 

75 

PR 

MS 


BL 47 BL 52 
10003 bl 51 

0 tc 22 
°HL 15 


17 

0 

TC 

13 

TP 

TC 

: 21 

A 

AT 

uc 6 

UC 

17 

0 

uc 

11 

MJ 

0 

BL 


17 

0 

TC 

13 

MJ 

0 

BL 



2 602 0 
2 656 0 
0 0 77 

0 BE 0 
0 0 5 

0 1 0 

0 0 161 



0 0 0 
0 0 1 
2 200 0 
2 1 50000 
2 1 60000 
2 1 70000 
2 612 0 
0 0 167 
0 0 ts 167 
2 4 1 
0 0 45 
0 0 15 
0 0 25 
0 77777 0 


Is there a parity error? 

Print-out: PY 

Stop with PAK at place where read can start all 
over 

Set normal bias 

Move forward 1 block 

Exit from reread routine 

Set normal bias 

Exit 

Parameter for reading 1 block forward 

Parameter for writing 1 block 

Mask 

Address of word before 2nd table 
Index set-up for 6 characters of line 

Index set-up for maximum possible (162 q) 
words in block 

Beginning address of buffer 


Rewind parameter 
Normal bias parameter 
Low bias parameter 
High bias parameter 
Read backward 1 block 

Address of last word in buffer 

Move forward 1 block parameter 

Carriage return 
P 

Y 

Mask 
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Dummy fill lines putin to maintain 
correspondence with 1105 routine 


0 0 0 
0 0 0 
0 0 0 
0 0 0 j 

0 0 0 

J 

NU 0 0 0 16 & 

1 0 0 35 # 

2 0 0 62 : 

3 0 0 55 $ 

4 0 0 75 % 

5 0 0 0 

6 0 0 0 

7 0 0 0 

NE 0 0 0 63 + 

1 0 0 76 = 

2 0 0 42 I 

3 0 0 17 ( 

4 0 0 43 ) 

5 0 0 0 

6 0 0 0 

7 0 0 0 

CA DH 235 


First table - Card-to-Tape 
Produced Excess-Three Values 


Second Table-Excess-Three 
Codes Accepted by Unicode 


Temporaries Used 


UC 0 
1 
2 

3 

4 

5 

6 
7 

10 

11 

12 

13 


Read forward 1 block of tape from input Uniservo 

Write 1 block on output tape 

Index for characters in a word 

Index for total words possible in block (l62g) 

Holds initial value of Q. Later holds output tape No. shifted 
Index for number of blocks 

Holds initial A v shifted of input tape number 
Read backward 1 block 
Index to read backward 
Move forward 1 block 

Temporary to get output servo No. shifted to right position 
Not used on 1103A version 


TS Buffer of 170 q lines used for reading into and writing from after 
translation to Unicode characters. 
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6. STATISTICAL MISCELLANY 




6. STATISTICAL MISCELLANY 


7 7- 

7 6 X - - 

7 5- 

6 7- 

6 6 - 

6 5- 

6 4- 

6 3- 

6 2 - 

6 1 - 

5-X 

4 - - X X 

2 7- 

2 6 - 

2 5- 

2 4- 

2 3- 

2 2 - 

7 1--- 


a. Call words of UNICODE 
1. Regular call words 

Subscripted variable 

Subscripted 'dummy' variable for Subprogram - X denotes the 
number of subscripts 

Subscripted 'dummy' variable for functions 
Constant (Floating or Fixed Point) 

Function (Floating) 

Floating point variable 
Fixed point variable 

Non-subscripted dummy variable in Subprogram 
Non-subscripted dummy variable for functions 
Dummy function in Subprogram 

Library routine - X denotes the number of operands 
Pseudo operation - X X denotes the number of operands 
Statement of Main Program 
VARY statement of Main Program 

Equation defining 66---, 65---, or 64--- type 
variable (before START) 

Equation defining 7 7 - - - type variable (before START) 
ENDaOFaTAPE 

Sentence of Subprogram (including VARY statement) 

Absolute address call word for those addresses 1000 thru 1777 
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2. SUPPLEMENTARY CALL WORDS AND ASSOCIATED PRELUDE ENTRIES 


The following supplementary call words will be unique only within a given 
generated routine. 

Call words 


10 - 

Relative constants 

20 - 

Fixed constants 

60- 

Fixed temporary storage 

70- 

Working temporary storage 


The rightmost three octal digits of the call words specify the relative 
running location of the item within the designated region, the first item of 
a region being designated by the digits, ”000”. Thus, the call word, 10003, 
would be used as a relative address to reference the fourth relative constant 
in order of increasing memory address. These call words facilitate the 
generation of machine instructions referencing items in the constant or 
temporary regions without predetermining the actual addresses of these items 
relative to the beginning of the running routine. 

Relative constants are those which are relatively coded and must be 
modified during processing. Modifying "10" lines appearing in the Relative 
Constant region must not be counted when determining the three call-word digits 
specifying the relative location of constants within the region. Fixed 
Constants are those constants which are coded in absolute and are not to be 
modified. Fixed temporaries are those in which information is stored at some 
time during the execution of the routine and is retained for the duration of 
the routine. On the other hand, working temporaries * would be those which 
are used and reused to store different information during a given execution of 
the routine. 

The number of entries in each of the constant or temporary regions, ex¬ 
clusive of "10" lines, must be included in the third word of the Prelude for 


* NOTE: Distinguishing between two types of temporary storage was necessary 
in the generation of equation routines. In general, this may not be 
necessary. 
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the routine. This word will be divided into four groups of three octal digits 
each. Each group will contain the number of entries in the corresponding 
region, packed to the right and filled with zeros within the group. The word 
will be divided as follows: 

Number of Fixed Number of Working Number of Relative Number of Fixed 
Temporaries Temporaries Constants Constants 

3 octal digits 3 octal digits 3 octal digits 3 octal digits 

When any of the regions is not used, a corresponding zero entry must be made 
in the third word of the Prelude. 

An example of the use of supplementary call words in a generated routine 
would be: 


Relative Generated Routine 
Address Op "u" V 








00 

1 » 

llooilo 

1 1 

J J 

021003 

1 

1 

> 

1000 

1 I 1 to 

i i 

00000 

— 

30000 

< 

1001 

15 

10000 

01002 


1002 

66 

30000 

20000 


1003 

11 

31000 

60000 


1004 

67 

20002 

60000 


1005 

11 

31000 

70000 


1006 

65 

60000 

70000 

> 

1007 

11 

31000 

70000 


1010 

66 

60000 

20000 


1011 

64 

31000 

70000 


1012 

16 

10001 

01014 


1013 

21 

01014 

20001 


1014 

11 

31000 

30000 


1015 

45 

00000 

01000 

J 


Prelude 


Body of routine 


187 



10000 

00 

77000 

00000 ) 

10001 

00 

00000 

77005 J 

20000 

20 

04000 

00000 1 

20001 

00 

00000 

ooooi i 

20002 

20 

54000 

00000 J 

60000 

— 


----- } 

70000 

— 


-----} 


Relative constants 

Fixed constants 

Fixed temporary 
Working temporary 
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3. USE OF CALL WORDS TO REFERENCE SUB-PROGRAM INPUT LIST 


The inputs for a sub-program are designated by means of dummy variables 
appearing in the heading of the sub-program. These inputs may be floating or 
fixed-point single-valued quantities, subscripted variables, or functions. 

The dummy variables will be assigned dummy call words depending on the type of 
input. The leftmost two octal digits of the call words indicate the type of 
input, the third octal digit specifies the number of subscripts in the case 
of subscripted variables, and the rightmost two octal digits indicate the 
relative location of the particular entry in the sub-program input list. These 
call words are used in the generated routines of a sub-program to reference 
the entries in the sub-program input list. 

The input file for a dummy subscripted variable will contain the call word 
of the subscripted input variable, and the values of its multipliers, modulus 
and subscripts in that order. The dummy subscripted variable will have a 

76- type call word; the multipliers, modulus, and subscripts will have 63- 

type call words. 

SUBSCRIPTED DUMMY VARIABLE INPUT FILE* 


Call word of input variable in u and v 
Numerical value of first multiplier 
" " " second 

” " " third 

*’ " " modulus 

" " " first subscript 

" " " second 

" " " third 

" " " fourth 

*Note: Length of file varies with number of subscripts. 
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The input file for a dummy function will contain the call word for the 
input function, and the call word of the equation defining the function. The 
dummy function will have a 61-type call word. 


DUMMY FUNCTION INPUT FILE 
Dummy 


Call word 

Op 

u 

V 

61 - 

00 

66 - 

66 - 

61 — 

00 

25- 

25- 


Call word of input function inV'andV 

Call word of equation defining input 
function in "u" pnd "v" 


The input file for a dummy floating or fixed-point single-valued variable 
contains only the value of the input quantity. 

DUMMY SINGLET-VALUED VARIABLE INPUT FILE 


Dummy 

Call word Op u v 


63- 


Numerical value of input quantity 


The files for the inputs for a sub-program must appear consecutively in 
the sub-program input list in the order in which the corresponding dummy 
variables appear in the sub-program heading; the file for the first (leftmost) 
input variable beginning at the initial address of the input list. 


Consider the following: 

DIMENSION.X(2,4) 

SUB-PROGRAM REFERENCE.Compute INT(X(1,3), F, L, 0.5) 

SUB-PROGRAM HEADING.INT(W(I,J), G, K, T) 


where: 

(1) INT is a Pseudo Operation 

(2) "X" is a subscripted input variable with call word, 77003. 

(3) "F" is an input function with call word, 66001, and a 
defining equation with call word, 25005. 

(4) "L" is a fixed-point input variable with value, 2. 

(5) "0.5” is a floating-point constant input. 
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The entries in the sub-program input list and the associated dummy call 
words would be: 


Dummy 

Variable 

Dummy 

Call word* 

Op 

u 

V 

W 

76200 

00 

77003 

77003 


63001 

00 

00000 

00004 


63002 

00 

00000 

00010 

I 

63003 

00 

00000 

00001 

J 

63004 

00 

00000 

00003 

G 

61005 

00 

66001 

66001 


61006 

00 

25005 

25005 

K 

63007 

00 

00000 

00002 

T 

63010 

20 

04000 

00000 


Call word of X in "u" and "v" 

Value of multiplier for ’X" 

Value of modulus for "X" 

Value of first subscript for "X" 

Value of second subscript for "X" 

Call word of ”F" in ”u" and 'V 

Call word of equation for "F" 
in "u" & "v" 

Value of ”L" 

Floating-point constant "IKS'" 


All sub-program references utilize a common input region, with the current 
input list overlaying the previous list during running of the object program. 
The total number of entries in the input list for any sub-program reference 
must not exceed 100 octal, since only the rightmost two octal digits of the 
dummy call words are available for designating the relative location of an 
entry within the sub-program input list. 


*Note : The last two octal digits of the dummy call words indicate the relative 
location of the entry within the input list. 
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4. USE OF CALL WORDS TO REFERENCE ARGUMENT LIST FOR FUNCTIONS 


The dummy arguments for a function are specified on the left of the 
function equation and may be non-subscripted variables or subscripted variables 
with only one subscript. These dummy arguments will be assigned dummy call 
words which will be used in the generated routines to reference the arguments 
for the function. Argument files pertinent to the real arguments to be used 
in the evaluation of a function will be transferred to an Argument List for 
the function by the COMPUTE statement referencing the function. The rightmost 
twn nr.t ai (Units of th p dummv call words indicate the relative location of the 
particular entry in this Argument List; the leftmost two digits specify the 
type of entry, i.e., subscripted or non-subscripted. 

The argument file for a dummy subscripted argument will contain the call 
word of the real subscripted argument, the value of the modulus for the 
argument, and the value of the subscript. The dummy argument will be assigned 
a 75-type call word, the dummy subscript and modulus 62-type call words. 

SUBSCRIPTED ARGUMENT FILE 


Dummy 


Call word 

Op 

U 

V 

750— 

00 

77- 

77- 

620— 

620— 

__ | 




Call word of subscripted argument in "u" and 
"v" 

Numerical value of modulus 
Numerical value of subscript 


The argument file for a dummy non-subscripted argument will contain only 

the value of the real argument. The dummy argument will have a 62- type call 

word. 

NON-SUBSCRIPTED ARGUMENT FILE 


Dummy 
Call word 

620- 


Op u v 


Numerical value of real argument 


The argument files for a given reference to a function equation must appear 
consecutively in the Argument List in the same order as the corresponding dummy 
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arguments appear on the left of the equation; the file for the first (leftmost) 
argument beginning at the initial address of the Argument List. 


As an example, consider the following: 


DIMENSIONS . S(10), Y(4) . 

FUNCTION EQUATION . F(X(I), Z, W, Y(J)) = - 

FUNCTION REFERENCE . COMPUTE F(S(3), 0.5, T, Y(J)) 


where: (1) T is a floating-point variable with value, 16.0. 

(2) J is a fixed-point variable with value, 2. 

(3) S is a subscripted argument with call word, 77004. 

(4) Y is a subscripted argument with call word, 77001. 

(5) ”3" is a fixed-point constant. 

(6) "0.5" is a floating-point constant. 

The entries in the Argument List and the associated dummy call words 
would be: 

Dummy Dummy Argument List 

Variable Call word Op u v 

X 75000 00 77004 77004 

62001 00 00000 00012 

I 62002 00 00000 00003 

Z 62003 20 04000 00000 

W 62004 20 54000 00000 

Y 75005 00 77001 77001 

62006 00 00000 00004 

J 62007 00 00000 00002 


Call word of "S" in "u" and "v". 

Value of modulus for "S". 

Value of subscript for "S". 

Floating-point constant "0.5". 

Value of T, i.e., floating-pt 
const. 16.0. 

Call word of "Y" in "u" and "v". 
Value of modulus for "Y". 

Value of Subscript "J". 


A common region is used for the Argument Lists for all function equations, 
with each list overlaying the previous list during the running of the object 
program. The maximum number of entries in an Argument List is twelve, since a 
maximum of four arguments is allowed and the maximum argument file contains 
three entries. 
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B. Fixed Locations During Compilation 


FIXED 

ADDRESS 


TRANSLATION 


SEGMENTATION 


ALLOCATION 


INITIALIZATION 

GENERATION 


PROCESSING 


LISTING 


00005 


00 2 0000 0 


X 2 


= » words in LIST I 
00 if n = 0 

: 20 if all Library Call words 
> 50177 (Standard) 

40 if all Library Call words 
<50200 (Fixed) 

: 60 if both types occur 


00006 


00 2 n s 

n = : # words Dimension List 
s r: * arrays 


00 0 n 

n = # single-valued 

variables 


00 2m s j 00 2n 

m = u words modified Dim. List 
n = * words Dimension List 
s = # arrays 


00 2m 


00 2m 


x - 1st address for single valued 
variables 

n - * single-valued variables 
If n = 0, x = 0 


oooio 


00 2 n n 

n = * words Constant Pool 


00 2 n n 


00011 


00 2 n n 

n = * words Reference List 


00 2 n x 

x r 1st address of constants 
n = # constants 

If n = 0, x = 10000 (20000, 
30000) 


00012 


00 000Ox 0 

x = 0 if no LIST or READ 
x = 1 if LIST only 
x = 2 if READ only 
x - 3 if both 


00 OOOOx a 

a = Loading address 
for segments 


00013 


00 0 n 

n = v blocks Corrected 
Problem 


00014 


u v w x y_ 

u = # blocks Constant Pool 
+ Label + End 
v = # blocks DIM LIST 
+ Label + End 
w = * blocks Symbol LIST 
+ Label + End 
x = READ,LIST indicator 
y = # blocks thru Constant Pool 


00015 


0 2ns I 
Description as 


0 2m 
above 


s 




c. Uniservo Usage 

On the following pages are given the two layouts of Uniservo usage 
during compilation of a UNICODE program; one using five Uniservos, the other 
seven. These charts show the important contents of each tape at the beginning 
of compilation and at the end of each phase. Entries only appear on the chart 
when the preceding phase has added to or changed the contents of the tape. 

The bottom line shows the contents of all tapes at the end of compilation. 
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UNICODE COMPILATION - Five Uniservo Layout 


UNISERVO 1 
UNICODE MASTER 


UNISERVO 2 
LIBRARY 


UNISERVO 3 UNISERVO 4 

PROGRAM CORRECTIONS (if any) 


UNISERVO 5 
BLANK 


BLANK 


BLANK 


CORRECTED PROGRAM 


STRINGOUT 


GENERATED ROUTINES CORRECTED PROGRAM 

OP FILE I 
LIST I 

DIMENSION LIST 
CONSTAISTT POOL 
SYMBOL LIST 


OP FILE II 


vO 

0 s 


UNICODE MASTER 


LIBRARY 


ALL OF PRECEDING 
OP FILE II l) 
PREFACE \ 
TERMINATIONJ 


by 

segment 


TAPE HANDLER 
CONTROL 
INITIALIZATION 
CONSTANT POOL 


OBJECT PROGRAM 


PROGRAM LISTING 


T 


OBJECT PROGRAM PROGRAM LISTING CORRECTED PROGRAM 


PHASE 


MERGE 


TRANSLATION 


GENERATION 


SEGMENTATION 


ALLOCATION 


INITIALIZATION 

GENERATION 


PROCESSOR 


LISTING 


END OF 
COMPILATION 





UNICODE COMPILATION - Seven Uniservo Layout 


UNISERVO 1 
UNICODE MASTER 


* 

UNICODE MASTER 


UNISERVO 2 
LIBRARY 


UNISERVO 3 
PROGRAM 


UNISERVO 4 UNISERVO 5 UNISERVO 6 

CORRECTIONS (If any) BLANK BLANK 


UNISERVO 7 
BLANK 


CORRECTED PROGRAM 


STRINGOUT 


CORRECTED PROGRAM GENERATED ROUTINES 

OP FILE I 
LIST I 

DIMENSION LIST 
CONSTANT POOL 
SYMBOL LIST 


OP FILE II 


ALL OF PRECEDING 
OP FILE III ^ 

PREFACE > J; y 
TERMINATION J l5e g ment 


TAPE HANDLER 
CONTROL 
INITIALIZATION 
CONSTANT POOL 


OBJECT PROGRAM 


* 

LIBRARY 


♦ 

PROGRAM 


♦ 


* 


* 


CORRECTIONS (If any) CORRECTED PROGRAM OBJECT PROGRAM 


PROGRAM LISTING 

-t“ 


PROGRAM LISTING 


PHASE 


MERGE 


TRANSLATION 


GENERATION 


SEGMENTATION 


ALLOCATION 


INITIALIZATION 

GENERATION 


PROCESSOR 


LISTING 


END OF 
COMPILATION 




d. Corrections to UNICODE Manual (U-1451 Rev. 3) 


Page 4: 


Page 7: 


Page 10: 


Page 23: 


Insert after tenth line of first paragraph the following: 

This size restriction on fixed-point constants written 
in a UNICODE program does not prevent the generation, 
use, or output of fixed-point numbers greater than 
999999 in the running of an Object Program. 


Change first line of third paragraph to read: 

Superior symbols available are minus sign, divide sign, 
and figures, all superior 


Change first two lines of list under first paragraph 
opposite "Hierarchy of Operations" title to read as 
follows: 


1. Library Functions 

2. Exponentiation 


Add paragraph at bottom of page 10: 

c\ 2 

Z = sin y^is interpreted as Z - (sin y) . A term 
such as sin^ y causes an error print-out. To get the 
sine of y^, one must write sin (y^). Similar usage 
applies to other library functions. 


Change second and third line from the bottom of page to read: 
DOT (A(I), B(J)) 

where A(I) and B(J) are dummy vectors. No "dummy" operand in 

Also add at the bottom of the page the sentence: 

No dummy operand (including subscripts) may have the same 
designation as another dummy operand in the same heading, 
although different dummies may be equated to the same 
real variable by the COMPUTE statement which references 
the sub-program. 
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e. Use of Second and Third Memory Cores in Object Program 


To modify the UNICODE Master Tape so that more than one core of lOOOOg 
addresses is available to the Object Program, update a Master Tape until the 
number 13 for the Segmentation Phase has been typed. Stop the updating at 
this point and load into absolute address 2555 the upper threshold desired. 
At present this address holds 00 00000 10000. It may be changed to 
00 00000 20000 for 2 cores or 00 00000 30000 for 3 cores or any value above 
10000 for Object Programs needing more than one core but less than the full 
memory. 

After this correction, resume the updating of the Master Tape as ex¬ 
plained in the System Tape Package write-up by starting at 40414. Upon 
completion of the updating, a changed-word post mortem (start at 40600) 
should show only the changing of this one word. If it does, the updated 
Master Tape will now generate Object Programs using the new memory area 
designated. 
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III. TRANSLATION AND CORRECTION 

1. UNICODE SENTINEL BLOCKS 




III. Translation and Correction 


1. UNICODE Sentinel Blocks (ZZ) 

The first two blocks of the system tape contain coding to: 

A. Read in the merge and jump to it (start at 77000) 

B. If start was at 77004, read in: 

1. Flex Codes (FC) 

2. Tape Handler (TH) 

3. Print Text (UP) 

4. Alarm Routine 

then move tape on Uniservo 1 forward to Segmentation 
Set-'Jp and check Sentinels on following tapes: 

1. Library (#2) 

2. Generated Routines (»4 or #7) 

3. "UNICODE Program" (#5) 

then move #5 forward to Op. File I and jump to 77010. 
This will read in Segmentation Set-Up and jump to it, 
thus initiating Pass III. 
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Unicode Sentinel Blocks (ZZ) 





Unicode System Tape Sentinel Blocks 
(1105 & 1103A Regions and Coding) 


Region 

Address 

ZZ 

72 30 

CC 

72 6 7 ) 

CE 

7344 J 

zu 

7407 

zw 

7437 

zx 

7444 

ZY 

7474 

ZC 

7534 

TI 

7610 

BB 

7116 

TH 

21 

TN 

20 

UP 

421 \ 

uw 

513 / 

FC 

40001 

ZA 

77000 

XA 

35 

XB 

3134 

BR 

537 


Name 

Sentinel and Reads 
Constants 

Check Library Sentinel 

Move No. 5 forward 

Check for ’’Unicode Program" 

Check Generated Tape Sentinel 

Read N blocks 

Tape Image 

Read Subroutine 

Tape Handler 

Indicates 5 or 7 servos 

Print text 

Flex Codes 
Service Routine 
Beginning of Merge 
End of Merge 

Start of Generation subs 
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Unicode System Tape Sentinel Blocks 
(1103A) 


1 

2 

3 

4 

5 

6 
7 


IA 

MJ 

M T 

mu 

67 

30 

30 

30 

TP 

RJ 


ZZ 

0 

0 

50342 

77657 

47776 

77777 

CC1 

BB 


ZZ6 

r 7 r 7 1 O 

65127 
36566 
62452 
77777 
BB2 
BB1 


10 

TP 

CC2 

ZC2 

11 

RJ 

zc 

ZC1 

12 

MJ 

0 

XA 

i ■} 

TD 

rr i 

DDO 

x u 

X L 

x 

UUL 

14 

RJ 

BB 

BB1 

15 

EF 

0 

CC3 

16 

TP 

CE42 

BB2 

17 

RJ 

BB 

BB1 

20 

RP 

30100 

ZZ22 

21 

TP 

TI 

FC 

22 

TP 

CC4 

ZC2 

23 

RJ 

ZC 

ZCl 

24 

TP 

CE31 

TH3 

25 

RJ 

TH2 

TH 

26 

TP 

CE30 

TH3 

27 

RJ 

TH2 

TH 

30 

TP 

CE27 

TH3 

31 

RJ 

TH2 

TH 

32 

MJ 

0 

ZU 


CA 

ZZ33 



} 

} 

1 

} 

} 

} 

} 

} 

} 


= 72 30 
77000 Start 
77004 Start 
UN I C 0 D 
E 77 S Y S T 
EM 77 T A P 
E 77 77 77 77 77 

Read in subs 

Read in merge 
—> Merge 
Read in subs 
Move fwd to FC 
Read in FC 

FC—>drum 

Read in GTH, UP 

Move fwd to BR 

Read in BR 

Move fwd to seg. setup 
—> LIB check 
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Unicode System Tape Sentinel Blocks 
(1105) 



IA 

ZZ 


= 72 30 


0 

MJ 

0 

ZZ6 

77000 Start 


1 

MJ 

0 

ZZ13 

77004 Start 


2 

67 

50342 

65127 

U N I C 0 

D 

3 

30 

77657 

36566 

E 77 S Y S 

T 

4 

30 

47776 

62452 

EM 77 T A 

P 

5 

30 

77777 

77777 

E 77 77 77 77 

77 

6 

TP 

CC1 

BB2 ) 

► Read in subs 


7 

RJ 

BB 

BB1 J 


10 

TP 

CC2 

ZC2 1 

* Read in merge 


11 

RJ 

ZC 

ZC1 J 


12 

MJ 

0 

XA 

—> Merge 


13 

TP 

CC1 

BB2 1 

► Read in subs 


14 

R J 

BB 

BB1 J 


15 

MJ 

20000 

ZZ20 

TC U2 —> ZZ2 0 TCUl 


16 

EF 

0 

ZZ36 

Move fwd to FC 


17 

MJ 

0 

ZZ21 

Skip 20 


20 

EF 

0 

CC3 

Move fwd to FC 


21 

TP 

CE42 

BB2 1 

^ Read in FC 


22 

RJ 

BB 

BB1 J 


23 

RP 

30100 

ZZ25 1 

^ FC —» drum 


24 

TP 

TI 

FC J 


25 

TP 

CC4 

ZC2 1 

^ Read in GTH, UP 


26 

R J 

ZC 

ZC1 J 


27 

TP 

CE31 

TH3 

^ Move fwd to BR 


30 

R J 

TH2 

TH j 


31 

TP 

CE30 

TH3 

^ Read in BR 


32 

RJ 

TH2 

TH : 


33 

34 

TP 

RJ 

CE27 

TH2 

TH3 1 

TH J 

^ Move fwd to seg. 

setup 

35 

MJ 

0 

ZU 

—■» LIB Check 


36 

1 

4 

10153 

Move fwd to FC TCUl 


CA 

ZZ37 
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Check LIB Tape 
(1103A & 1105) 



IA 

ZU 



0 

1 

TP 

RJ 

CC5 

TH2 

TH3 1 
TH J 

^ Read LIB sent. 

2 

TP 

TI24 

A > 

| 

3 

EJ 

CC6 

ZU5 

[ Check LIB sent. 

4 

MJ 

0 

ZU7 

> Word 21= AALIBA 

5 

TP 

TI25 

A 

Word 22= ATAPEA 

6 

EJ 

CC7 

ZU16 J 

1 Error ^ O.K. —» ZU16 

7 

10 

TP 

RJ 

CC10 

TH2 

TH3 1 
TH J 

\ Rewind *6 

11 

12 

TP 

RJ 

CC35 

UP2 

UP 3 1 
UP J 

[ "LIB on 2" 

13 

TP 

CC 

A 

> 

II 

o 

14 

MS 

0 

ZU15 


15 

ZJ 

ZY 

ZU 

Not required —* GEN check 

16 

17 

TP 

RJ 

CC5 

TH2 

TH3 1 
TH J 

[ Read 2nd blk. of LIB tape 

20 

TP 

TI2 

A 


21 

DV 

CC12 

0 

| 

22 

ZJ 

ZU23 

ZU24 

> No. blks. in catalog—>A 

23 

RA 

0 

CC13 

24 

SP 

0 

25 J 


25 

AT 

CCll 

TH3 1 

'* Move past LIB catalog 

26 

RJ 

TH2 

TH J 

27 

MJ 

0 

ZY 

—*• GEN sent, check 


CA 

ZU30 
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Check Generation Tape Sentinel 
(1103A & 1105) 



IA 

ZY 


0 

TP 

CC15 

TN 

1 

MJ 

10000 

ZY3 

2 

TP 

CC 

TN 

3 

TP 

TN 

A 

4 

AT 

CC16 

TH3 

5 

RJ 

TH2 

TH 

6 

TP 

CC20 

A 

7 

AT 

TN 

TH3 

10 

RJ 

TH2 

TH 

11 

TP 

CC17 

A 

12 

EJ 

TI24 

ZY21 

13 

TP 

CC22 

CC33 

14 

MJ 

10000 

ZY16 

15 

TP 

CC21 

CC33 

16 

TP 

CC23 

UP 3 

17 

RJ 

UP2 

UP 

20 

MS 

0 

ZY 

21 

TP 

TI25 

CE 

22 

TP 

CE25 

TH3 

23 

RJ 

TH2 

TH 

24 

RJ 

ZX 

ZX1 

25 

RP 

30003 

ZY27 

26 

CC 

CE3 

CE6 

27 

SP 

CE3 

0 

30 

SA 

CE4 

0 

31 

SA 

CE5 

0 

32 

ZJ 

ZY33 

ZW 

33 

TP 

CE24 

TH3 

34 

RJ 

TH2 

TH 

35 

TP 

CE32 

UP3 

36 

RJ 

UP2 

UP 

37 

MS 

0 

ZY22 


CA 

ZY40 



} 


} 

} 

} 


I 

} 

} 


TN = 0 3 0 

Five servos I 7 —> ZY3 
TN = 0 

Read GEN sent. 

Rewind gen. tape 

Sent. O.K. —> ZY21 No l> 

Set for 7 servo print 
Five servos I' 7 —>ZY16 
Set for 5 servo print 

"GEN tape not on servo 4 or 7" 

Stop for re-entry 

Sent. O.K., store # blk. on 5 

Read 1 blk. #5 

Pick up Sentinel 


Check Sentinel 

No i 0. K. —> ZW 
Rewind #5 

"Mount Unicode Program #5 etc. 
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Check "Unicode Program' 
(1103A & 1105) 



IA 

ZX 



0 

MJ 

0 

(30000) 

Exit 

1 

TU 

CEll 

ZX7 j 

1 

2 

TV 

CE11 

ZX20 | 

f Setup 

3 

TP 

CC 

CE1 J 

1 

4 

5 

RP 

TP 

30004 

CE17 

ZX6 1 

CE13 J 

^ Set indexes 

6 

TP 

CE20 

CE14 

One word index 

7 

LQ 

(30000) 

6 1 

[ Char.—*CE2 

10 

QT 

CE23 

CE2 J 


11 

EJ 

CC13 

ZX24 

A —> No '» 

12 

IJ 

CE15 

ZX14 1 

L 14 non A’s —> 

13 

MJ 

0 

ZX24 J 

1 No -> 

14 

SP 

CE1 

6 i 

1 

15 

AT 

CE2 

CE1 1 

> Collect char, in CE1 

16 

TP 

CE1 

CE5 J 

1 i 

CEl full 1 No —> 

17 

IJ 

CE16 

ZX24 

20 

TP 

CE1 

(30000) 

Store CEl 

21 

RA 

ZX20 

CC13 

Modify 

22 

TP 

CC 

CE1 

Clear temp 

23 

TP 

CE22 

CE16 

Reset index 

24 

IJ 

CE14 

ZX7 

One word index 

25 

RA 

ZX7 

CE12 

Modify 

26 

IJ 

CE13 

ZX6 

20 word index 

27 

MJ 

0 

ZX 

Exit 


CA 

ZX30 







Position 

*5 




(1103A & 1105) 


IA 

ZW 



0 

RS 

CE 

CC13 

* blocks on 5 

1 

SP 

A 

25 


2 

AT 

CE26 

TH3 

Move #5 fwd to op 

3 

RJ 

TH2 

TH 


4 

MJ 

0 

ZA10 

—*■ seg, setup 


CA 

ZW5 
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Constants and Variables 
(1103A & 1105) 



IA 

CC 








0 

0 

0 

0 

Zero 





1 

0 

170 

ZZ170 

Read 

in i 

subs 


2 

0 

XA 

XB 

Read 

in merge 


3 

2 

4 

10153 

Move 

fwd 

to 

FC 

TCU2 & 1103A 

4 

0 

TH 

UW23 

Read 

in GTH 

, UP, etc. 

5 

50 

102 

TI 

Read 

LIB 

sent. 

& 2nd blk. 

6 

01 

01463 

42501 

A A 

L I 

B A 


7 

01 

66245 

23001 

A 

T 

A P 

E A 


10 

10 

2 

0 

Rewind ®2 



11 

30 

2 

0 

Move 

past LIB 

catalog 

12 

0 

0 

170 







13 

0 

0 

1 







14 

0 

0 

07777 

Mask 





15 

0 

3 

0 

Set TN 




16 

50 

104 

TI 

Read 

GEN 

sent. 

(4 or 7) 

17 

01 

01323 

05001 

AAGEN A 



20 

10 

4 

0 

Rewind GEN 

(4 

or 7) 

21 

07 

22010 

16566 

4 

(print 

with 

5 servos) 

22 

12 

22010 

16566 

7 

(print 

with 

7 servos) 

23 

0 

CC24 

11 

Par. 

for 

print GEN sent, error 

24 

47 

51675 

06601 

M 

0 

U 

N 

T 

A 

25 

67 

50342 

65127 

U 

N 

I 

C 

0 

D 

26 

30 

01323 

05030 

E 

A 

G 

E 

N 

E 

27 

54 

24663 

02701 

R 

A 

T 

E 

D 

A 

30 

54 

51676 

63450 

R 

0 

U 

T 

I 

N 

31 

30 

65015 

15001 

E 

S 

A 

0 

N 

A 

32 

65 

30547 

05101 

S 

E 

R 

V 

0 

A 

33 

0 

0 

0 

4 


A 

A 

S 

T filled in 

34 

24 

54662 

27777 

A 

R 

T 


77 

' 77 

35 

0 

CC36 

17 







36 

47 

51675 

06601 

M 

0 

U 

N 

T 

A 

37 

67 

50342 

65127 

U 

N 

I 

C 

0 

D 

40 

30 

01463 

42554 

E 

A 

L 

I 

B 

R 

41 

24 

54730 

15150 

A 

R 

Y 

A 

0 

N 

42 

01 

65305 

47051 

A 

S 

E 

R 

V 

0 

43 

01 

05220 

10134 

A 

2 


A 

A 

I 

44 

31 

01505 

10146 

F 

A 

N 

0 

A 

L 

45 

34 

25542 

45473 

I 

B 

R 

A 

R 

Y 

46 

01 

54305 

36734 

A 

R 

E 

0 

U 

I 

47 

54 

30270 

16530 

R 

E 

D 

A 

S 

E 

50 

66 

01240 

15051 

T 

A 

A 

A 

N 

0 

51 

66 

01760 

17430 

T 

A 

- 

A 

Z 

E 

52 

54 

51220 

10101 

R 

0 


A 

A 

A 

53 

01 

01016 

56624 

A 

A 

A 

S 

T 

A 

54 

54 

66227 

77777 

R 

T 


77 

77 

' 77 


CA 

CC 55 
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Constants & Variables (Cont.) 



IA 

CE 





0 

0 

0 

(0) 

# blk. servo 5 


1 

0 

0 

0 

Build word 



2 

0 

0 

0 

Char. 



3 

4 

0 

0 

0 

0 

2 ) 

UN I COD 
‘ E P R 0 G R 

} 

build 

5 

0 

0 

5 

OOOOAM 



6 

67 

50342 

65127 

U N I C 0 D 



7 

30 

52545 

13254 

E P R 0 G R 



10 

0 

0 

02447 

OOOOAM 



11 

0 

TI 

CE3 




12 

0 

1 

0 




13 

0 

0 

0 1 

I 



14 

0 

0 

0 ! 

1 Indexes 



15 

0 

0 

0 

> 



16 

0 

0 

0 




17 

0 

0 

23 > 

i 



20 

0 

0 

5 1 

1 Set indexes 



21 

0 

0 

16 1 

> 



22 

0 

0 

5 J 




23 

0 

0 

77 

Mask 



24 

10 

5 

0 

Rewind #5 



25 

50 

105 

TI 

Read 1 blk. 

»5 


26 

30 

5 

0 

Move #5 fwd 

n 1 

b1ks. to Op 

27 

30 

501 

0 

Move #1 fwd 

to 

segmentor 

30 

50 

101 

BR 

Read in BR 



31 

30 

11001 

0 

Move #1 fwd 

to 

BR routine 

32 

0 

CE33 

7 




33 

47 

51675 

06601 

M 0 U N 

T 

A 

34 

67 

50342 

65127 

U N I C 

0 

D 

35 

30 

01525 

45132 

E A P R 

0 

G 

36 

54 

24470 

15150 

RAMA 

0 

N 

37 

01 

65305 

47051 

A S E R 

V 

0 

40 

01 

10220 

10165 

A 5 . A 

A 

S 

41 

66 

24546 

62277 

TART 

• 

77 

42 

0 

170 

TI 

Read in FC 




CA 

CE43 






File 
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Read n Blocks to Storage 
(1103A & 1105) 


0 

IA 

MJ 

ZC 

0 

(30000) 

1 

MJ 

0 

ZC3 

2 

0 

(30000) 

(30000) 

3 

TP 

ZC2 

Q 

4 

QT 

ZC34 

ZC35 

5 

LQ 

0 

17 

6 

QT 

ZC34 

A 

7 

ST 

ZC35 

A 

10 

AT 

ZC37 

A 

11 

LQ 

Q 

6 

12 

TV 

0 

BB2 

13 

DV 

ZC40 

ZC33 

14 

TP 

A 

ZC32 

15 

TP 

0 

A 

16 

ZJ 

ZC17 

ZC26 

17 

RS 

ZC33 

ZC36 

20 

TU 

ZC40 

BB2 

21 

RJ 

BB 

BB1 

22 

RA 

BB2 

ZC31 

23 

IJ 

ZC33 

ZC21 

24 

TP 

ZC32 

A 

25 

ZJ 

ZC26 

ZC 

26 

TU 

ZC32 

BB2 

27 

RJ 

BB 

BB1 

30 

MJ 

0 

ZC 

31 

0 

0 

170 

32 

0 

0 

0 

33 

0 

0 

0 

34 

0 

77777 

0 

35 

0 

(30000) 

0 

36 

0 

0 

1 

37 

0 

1 

0 

40 

0 

170 

0 


CA 

ZC41 



Exit 

0 1st address last address 
Par. —» Q 

Store 1st address in u 
Last address —> Q u 
Last address —» A u 

Last - 1st + l —> A 

u 

1st add. —> Qv 
Set up 1st address 
n/1708 —*■ index 
Store remainder 

Quotient = 0—> ZC26 no J' 

Index - 1 

No. of words = l70o 
Read blk 
Address + 170 q 
n blks 

Remainder = 0—> exit no j 

Remainder —> par. 

Read remainder 
Exit 

Constant 

Remainder 

Index 

Mask 

1st address 
Constant 
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2. TAPE MERGE 




2. Tape Merge 


The tape merge routine is used to produce a corrected program tape, or, 
if no corrections are desired, to copy the program onto Uniservo 5. MJ3 is 
used to determine which of the two options is taken. If it is set, a corrected 
tape is produced; if not, the tape is copied. 

C orrected Tape 

Correction tape is read in 16 q blocks at a time. While corrections are 
being read in, a table is built up which contains an entry for each correction 
item. 

For a change or insert sentence, the table entry consists of the line 
number and a directory word which contains the drum address where the item will 
be stored, and the number of words the correction contains. The sign bit of 
the directory word is set to negative so that the entry will be recognized 
as a change or an insert. 

For a delete sentence, the table entry contains the first and last line 
number of the group of items to be deleted. 

The Line-Number processor is used to process all line numbers in the 
table. The line numbers of insert and change items are processed between read- 
in of successive blockettes and the processed line number included in the table 
entry. The line numbers of delete items are processed after 16 q blocks have 
been read in and tape has been stopped. 

Since there is not enough time available between blockettes to print out 
errors, a modified version of the Line Number Processor is used. When an er¬ 
ror is encountered, the line number and the type of error are stored so that 
errors can be printed out after the tape is stopped. Also, the output given 
by Line-Number Processor for an illegal line number is set to zero so that the 
line will not appear on the corrected tape. 

After 16 q blocks have been read in, the corrections are transferred to the 
drum, the line numbers of delete items are processed, and any Line-Number Proc¬ 
essor errors are printed out. 

If more corrections remain to be read in, the routine repeats the process. 
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When all corrections have been read in and all table entries have been 
formed, the table is sorted so that the corrections can be brought down from 
drum in ascending order. At this time, all table entries with item numbers 
of zero are thrown away. 

After the table has been sorted, read-in of program tape is begun. Items 
are read in from the program tape seven blocks at a time. Line numbers are 
processed between the read-in of successive blockettes. 

When seven blocks have been brought in from program tape, the read is 
stopped. Next all change and insert items referring to the program items are 
transferred from the drum to the correction buffer. The line-number position 
of all sentences to be deleted is filled with zero. 

Next the routine starts to write the corrected program onto tape 5. All 
insertions and changes are made as the tape is written. Program items with 
line numbers of zero are not written out on corrected tape. 

When the last complete block which can be produced from the group of items 
in core has been written, the tape is stopped and any remaining blockettes are 
stored to be written on the next pass. The routine then goes back to read more 
items from program tape. 

When no more program or correction sentences remain to be written, the 
routine fills in the final block with END OF TAPE sentences and stops the 
tape. Next all tapes are rewound and the routine exits to ZAIO. 

Copy Tape 

Program tape is read in 24 q blocks at a time and written on tape 5 
until all of tape has been copied. Then tapes are rewound and routine exits 
to ZAIO. 

Print-Outs 

If merge is selected, routine prints: 

MERGE 

CORRECTION TAPE 

Following the correction tape print-out, all errors detected on correction 
tape are listed. Next the routine prints: 

PROGRAM TAPE 
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and all errors occurring on program tape are listed. 

When either the merge or the copy tape is completed, the routine prints 
PROGRAM NOW ON TAPE 5 

If only 5 servos are available, the routine prints 

PUT 1500 FT. TAPES ON S. 3 AND 4 
and stops so tapes can be changed. 

When the computer is restarted, the routine exits to ZA10. 

Error Print-Outs 

If an out-of-sequence item appears on the program tape, the line-number 
position of the sentence is filled with a zero so that the sentence will be 
dropped and the routine prints 

SENTENCE '-' OUT OF SEQUENCE 

Label blocks of both the correction tape and the program tape are checked 
to determine whether correct tape is being read. If label is incorrect, 
routine prints: 

WRONG TAPE SERVO 3 (or 4) SHOULD BE UNICODE PROGRAM 

(or UNICODE CORRECTION) 

After the Error print-out, the routine rewinds the tape and stops set to 
re-enter after tape has been changed. 

If a parity error occurs, and the parity reread routine fails to correct 
the error, the routine prints: 

PARITY REREAD FAILS. TO REREAD START. TO IGNORE SET 

A NOT = 0 AND START. 

and stops set to re-enter. 

If parity error is ignored, routine prints: 

PARITY ERROR IGNORED 

repositions tape and goes on with next block. 

If more than 300 corrections appear on correction tape, the routine 
prints: 

TOO MANY CORRECTIONS, 300 IS MAXIMUM 

After print-out, routine ignores any remaining corrections and goes on to 
write corrected tape. 
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Merge Routine 
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Merge Routine (Cont.) 
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Merge Routine (Cont.) 
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Merge Routine (Cont.) 










Merge Routine (Cont*) 


IO 

ro 

Cl 
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Merge Routine (Cont.) 



Set new number of in 
seq f items into no. 
compares index 



«=- 

_i__ 

Set initial buffer 
address into instruction 
which moves data from 
buffer to table 
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Merge Routine (Cont.) 



Compare A 


Is item of in 
sequence string > 
out of sequence item 



Store address of 
^]in sequence item 
in compare I _ 



; A of in > 
sequence items 
exhausted? J 


Yes 


Yes 


Store address of out of 
sequence item. 

Set address of largest 
no. in place of address 
of out of seq. item in 
(compare A)_ 


No 


Set address of 
largest no. in 
place of address 
in seq. item in 
(compare A)_ 
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Compare B 

Compare two items. 

Put address of smaller 
item into compare I. 
Put address of larg¬ 
est no. in place of 
smaller item. 


Compare C 

Compare two item&Put 
address of smaller 
.item into compare J. 
Put address of largest 
no. in place of 
smaller item above 


Switch Bl—K16] 


Switch C 


Compare I 

Compare 2 items - put 
add of smaller item 
into compare M. 

Put add. of compare 
from which item came 
into temp 1 


Set switch 
B exit to (l6 


Set switch C 
exit to (17 


Merge Routine (Cont.) 


Switch I 


Set Switch 

I 

exit to 


4 ) 


compare M 



Compare 2 items - pul 
add. of smaller into 
compare P. 

Put add. of compare 
from which it came 
(temp 1 or 2) into 
temp 5 


Switch M 



Compare D 

Compare two items. Put 
address of smaller 
item into compare J. 
Put address of larg¬ 
est no. in place of 
; smaller item address 
above 


Switch D V-H17 


Compare J 

Compare 2 items. Put 
add. of smaller item 
into compare M. 

' Put address of com¬ 
pare, from which item 
came, into temp 2 


Switch J] 


Set Switch M 
to (26) 


Set switch J 
exit to 


Set Switch D 
exit to (17) 















Compare E 

Compare two items.Put 
address of smaller 
, item into compare K. 
Put address of larg¬ 
est no. in place of 
smaller item address 


Switch E V-*f23] 


Compare K 

Compare two items. 

Put address of smaller 
,into compare N. Put 
address of compare 
from which item came 
into temp 3 


Merge Routine (Cont.) 


Switch K] 


24A Set Switch K 


Compare F 
Compare two items 

Put address of smaller - 

item into compare K. g w jtch F 

Put address of larg- y 

est no. in place of I 

smaller item address I 

Compare G _ 

Compare two items. 

Put address of smaller - N 

, item into compare L. _^Switch G 
Put address of larg- ^ 

est no. in place of T 

smaller item address 


Set Switch E 
exit to (23) 



Set Switch F 


to ( 23 ) 


\ 22A . 

Set Switch G i 

^ ^ 

) 

to @ 


Compare N _ 

Compare two items. 

Put add. of smaller 
, into compare P* Put 
add. of compare from 
which it came (temp 
3 or 4) into temp 6 


Compare H 

Compare two items. 

Put address of smaller 
item into compare L. 
Put address of larg¬ 
est no. in place of 
smaller item address 



Compare L 


Compare two items. 

Put address of smaller 
into compare N. 

Put address of com¬ 
pare from which item 
came into temp 4 


.^Switch L 


18A| Set Switch L 
to (25) 
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Merge Routine (Cont.) 


Compare P 
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Merge Routine (Cont.) 
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Merge Routine (Cont.) 


Set up printout 
for sentence 
OUT OF SEQUENCE 


Read one block 
from tape 3 


Check^ 
Parity 


Check 

label 


/STOP \ 
set to 
re-enter 



Rewind 

„_ N V( 


tape 

< \ 


Test: was > 
label correct? 


merge 
exit * 


Write header 
block on tape 5 



Set initial buffer 

Start 

address into com- 

)- > -=* 

' Read 

mands which ref¬ 


erence buffer 


Set end of tape 
test counter and 
buffer counter. 
Set total no. of 
blockettes into 
temp 1 and 3 


Set address of 
1st non zero 
table item into 
commands which 
reference table 


Read 

Block 


Test item nos.^S. 
Does end of tape > 
line appear in this, 
v block? J 


'Check 

Parity 
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Merge Routine (Cont.) 
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Merge Routine (Cont.) 


32A 




42 


Fill next correction 
buffer location with 
largest number 
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Merge Routine (Cont.) 


equal test 

(A) = to '' N \ 
line no. of last \ 
item transferred? 


<Test next worcr s 
of table item. 

Is it a delete? 


Set line no. from table 
into correction buffer 


[Equal Switch a\ not ec t ua - 1 - : , Use 2nd word of table 
V y item to set up transfer 


equal 


Set for next 
correction buffer 
location. Set 
new address into 
equal test 


Set for next 

J 

table item 



Are there more\ 
corrections? / H36A 


and transfer rest of item 
from drum to correction 
buffer 



Set test 1 exit to 
test 2 exit to i 

Set transfer exit to 





Set to bypass 
read in of 
corrections 












236 


Merge Routine (Cont.) 
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Merge Routine (Cont.) 



Yes 
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Merge Routine (Cont.) 
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Test fill counter. 
Has full block been 
filled? 



Merge Routine (Cont*) 






h©- 


Set switch to B and 
and write blockette 1| 


Set switch to C and 
write blockette 2 


Set switch to D and 
write blockette 3 


<D>- 


Set switch to E and 
write blockette 4 




Set switch to F and 
write blockette 5 


H2 y* 



Store address in TM in 
current write command 
Set next storage address! 


Finished with 
block? 


No 


Yes 


Reset block counter 
Set switch to A 
Set storage address 

to blockette 1 









242 


„ Merge Routine (Cont.) 

Process 

Blockette 
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Merge Routine (Cont.) 


Process delete 
item numbers 








Merge Routine (Cont.) 
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position all Z f s?J 




Set for next 
blockette 
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Merge Routine (Cont.) 



Set reread switch 


to 



set normal bias 


r 




Reset addresses 
for read backward 











Merge Routine (Cont*) 


Set to ignore sub¬ 
sequent lines of Z f s 


Store address of all Z 

word. Store blockette 

_^ 

Set exit from parity 
routine to M7A) 

counter. Set end of 
tape switch to ( 47 ) 


1 _ 


Store address of all 
Z word . Adjust bkt* 
counter and store. 

Set end of tape switch 

to (47) 


Set parity routine 
exit to (47fl) 


\ >/ Rprpad \ > 

Start 


read 


Reread 


Is buffer 


full? 


Start 

read 
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Merge Routine 



Set buffer counter 
Set initial read 
addresses 


(65B 


Set blockette 
counter 



Set end of tape 
switch for Read 


.Yes 


Check line number 
position: Is it end 
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Merge Routine (Cont*) 






Set addresses 
into reread 


Set parity end 
of tape switch 
to 


Reread 



End of tape 
switch for 
parity 


Not End of 


Tape 


End of Tape 


■W68A] 



Set parity end 
of tape switch 

to Q) 


^4G) 














TAPE MERGE REGIONS 


RE GQ761 
RE PZ3071 
RE ZA77000 
RE UC2507 
RE RQ35 
RE RR52 
RE RSllO 
RE LP140 
RE CN147 
RE CX232 
RE XY273 
RE JL375 
RE XX433 
RE VF525 
RE MG543 
RE MN604 
RE NW711 
RE MP770 
RE KW1003 
RE BJ1042 
RE UN1077 
RE NR1164 
RE ET1213 
RE SV1310 
RE LC1374 
RE SR1453 
RE XZ1553 
RE WT1655 


RE NZ1736 
RE ZR1766 
RE WX2005 
RE FT2045 
RE PB2105 
RE DL2205 
RE RB2246 
RE LN2340 
RE DR2353 
RE MR2375 
RE RC2471 
RE WS2534 
RE PA2540 
RE CD2575 
RE UP2653 
RE UQ2675 
RE US2705 
RE UW2745 
RE FC2771 
RE DT40002 
RE BR7635 
RE TM5 
RE BU4225 
RE CB6125 
RE GZ3073 
RE GR5735 
RE TB3073 
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TAPE MERGE ROUTINE 



IA 

RQ 



0 

RJ 

PZ2 

PZ 

MJ 0 RQ2 on 1103A tape 

1 

EF 

0 

VF14 

Set bypass 

2 

MJ 

30000 

SV 

If MJ3 is set go to SV from MERGE. If 

MJ3 not set take next instruction and copy 





tape 

3 

RJ 

ET42 

SR60 

Set up tape commands and parity reread 

4 

RJ 

MG14 

MG 

Read label, check and write 

5 

RJ 

XY11 

RQ10 

Set end of tape exit for parity reread 

6 

TV 

RQ13 

RS14 


7 

MJ 

0 

XY12 


10 

RJ 

XY35 

RR 

Set end of tape exit for parity reread 

11 

TV 

RQ13 

RS14 

Set new exit for parity reread 

12 

MJ 

0 

XY36 

Go back to finish reread 

13 

0 

0 

RS2 


14 

0 

0 

24 



CA 

RQ15 





IA 

PZ 




0 

MJ 

20000 

RQ1 

Test: Is TCU2 

to be used? If so go to RQ1 

1 

TP 

PZ5 

VF14 ^ 



2 

RP 

20014 

30000 \ 

If not, reset 

tape commands for TCUl 

3 

CC 

VF 

PZ4 I 



4 

03 

0 

0 



5 

00 

10000 

4000 




CA 

PZ6 






IA 

RR 



0 

EF 

0 

VF 

Start read 

1 

TP 

RQ14 

TM2 

Set buffer index 

2 

TU 

RR35 

RR7 1 

L 

3 

TV 

RR35 

RR6 J 

1 Set initial read addresses 

4 

TP 

CN4 

TM4 

Set blockette index 

5 

RP 

10024 

RR7 1 

\ Read blockette 

6 

ER 

10000 

30000 J 

7 

TP 

30000 

A 1 

1 

> Test: Is it end of tape blockette? If so 

10 

EJ 

CX6 

RS J 

' go to RS 

11 

12 

RA 

RA 

RR6 

RR7 

CN5 1 

CNl2 J 

j> Set for next blockette 

13 

IJ 

TM4 

RR5 

Test: Finished with block? If not go 
back to RR5 

14 

ER 

0 

A 

^ Check parity 

15 

ZJ 

RS11 

RR16 

16 

RJ 

RR16 

RR17 


17 

IJ 

TM2 

RR4 

Is buffer full? If not go back to RR4 
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20 

EF 

21 

EF 

22 

TP 

23 

TV 

24 

TP 

o r- 

40 

n n 

nr 

26 

EW 

27 

RA 

30 

IJ 

31 

IJ 

32 

EF 

33 

RJ 

34 

MJ 

35 

0 


r* a 
V^H 



IA 

0 

RJ 

1 

EF 

2 

TP 

3 

ST 

4 

EF 

5 

RJ 

6 

EF 

7 

EF 

10 

MJ 

11 

TV 

12 

TU 

13 

RJ 

14 

RJ 

15 

TP 

16 

ZJ 

17 

EF 

20 

MJ 

21 

TP 

22 

RJ 

23 

MJ 

24 

TP 

25 

RJ 

26 

MS 

27 

MJ 


CA 


VF10 

VF12 

TM2 

RR26 

TM4 

RR27 \ 
30000 / 
CN5 

RR25 
RR24 
VF10 
RR34 
RR 
GZ 


RR11 

VFlO 

A 

TM2 

VF12 

RR23 

VF11 

VF2 

RS21 

XY5 

XY10 

JL26 

RS15 

A 

RR21 

VF 

RR16 

UP3 

UP 

RS27 

UP 3 
UP 

RS27 

ZA10 


0 

0 

RQ14 

RR35 

CN4 

i aaO * 

10000 

RR26 

TM4 

TM2 

0 

RR33 

0 

GZ 

nno/ 

nivoo 


RS 

RR16 

0 

RQ14 

TM2 

0 

RR33 

0 

0 

0 

RR6 

RR7 

XY20 

RS14 

TM2 

RS17 

0 

0 

CX31 
UP 2 
10000 

XX71 
UP 2 
0 

0 

RS30 


} 

} 

} 

} 

} 

} 


If so, stop tape 
Start write on Servo 5 
Set buffer index 
Set initial write address 
Set blockette index 

Write blockette 

Set for next blockette 

Finished with block? 

Is buffer empty? 

If so stop tape 

Go back to read more items 


Stop tape 

Set buffer index for write 

Start write 
S 

Rewind tape 5 
Rewind tape 3 
Go to RS21 

Set addresses into parity reread 
Reread 

Switch set by parity routine if end of tape 
occurred in block 

Are more blocks to be read? If not, go to 
RR21 to write 

If so, start read and go to RR16 

Print: PROGRAM NOW ON TAPE 5 

If MJ1 is set, go to exit. If not, take 
next instruction 

Print: PUT 1500 FT. TAPES ON SERVO 3 AND 4 

Stop, set to re-enter after tapes are 

changed 

Exit 
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IA 

SV 


0 

TP 

CX40 

UP 3 

1 

RJ 

UP2 

UP 

2 

TP 

CX33 

UP3 

3 

RJ 

UP2 

UP 

4 

EF 

0 

VF14 

5 

MJ 

0 

SV40 

6 

TV 

SV47 

TM-* 

7 

MJ 

0 

SV15 

10 

TV 

SV50 

TM-* 

11 

MJ 

0 

SV15 

12 

TV 

SV51 

TM-* 

13 

MJ 

0 

SV15 

14 

TV 

SV52 

TM- 

15 

TP 

LN4 

(30000) 

16 

TV 

TM 

(30000) 

17 

RA 

SV15 

CN1 

20 

RA 

SV16 

CN1 

21 

TP 

CN52 

LN3 

22 

MJ 

0 

LN2 

23 

TP 

SV15 

TM 

24 

RS 

TM 

SV55 

25 

LT 

43 

TM 

26 

TU 

SV54 

SV32 

27 

TU 

SV53 

SV33 

30 

IJ 

TM 

SV32 

31 

MJ 

0 

SV43 

32 

TV 

(30000) 

SV34 

33 

TP 

(30000) 

LN4 

34 

RJ 

LN2 

(30000) 

35 

RA 

SV32 

CN14 

36 

RA 

SV33 

CN14 

37 

MJ 

0 

SV30 

40 

TP 

CX36 

XX10 

41 

RP 

30003 

SV43 

42 

TP 

CX20 

XX13 

43 

TV 

SV55 

SV15 

44 

TV 

SV54 

SV16 

45 

RJ 

SV45 

SV46 

46 

MJ 

0 

WX 

47 

00 

0 

PAll 

50 

00 

0 

PA16 

51 

00 

0 

PA23 

52 

00 

0 

PA30 

53 

00 

BR 

0 

54 

00 

BR1 

BR1 

55 

TP 

LN4 

BR 

56 

TP 

CX35 

UP 3 

57 

RJ 

UP 2 

UP 

60 

MJ 

0 

(30000) 

61 

TP 

XX24 

UP3 

62 

RJ 

UP2 

UP 

63 

MJ 

0 

ET7 


CA 

SV64 



} 

} 


-> 


} 

} 

} 

} 

} 

} 


Print: MERGE 
Print correction tape 

Set bypass if 1105 MJ 0 SV5 on 1103A copy 
Out to rest of setup 


Set address of error entry 


Store illegal line number 
Store entry for error print 

Set for next entry 

Set LN3 to zero 
Exit 

Store no. of illegal line no's, in index 


Set up initial addresses 

Finished with all error prints 

If so—> SV43 

Set entry to LNP no. 3 

Send line number to LNP no. 3 

Go to LNP for error print 

Set for next print 

Go back for remaining items 

Set print for label check 
Set initial error entries 


Line number error print entry addresses 


Print: SENTENCE - (DELETE) 


Print: TOO MANY CORRECTIONS 300 IS 
MAXIMUM 
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IA 

wx 



0 

EF 

0 

VF3 1 


1 

RP 

10170 

WX3 ; 

> Read label 

2 

ER 

10000 

BU 1 

1 

o 

G 

4 

r?r» 

Hill 

ZJ 

0 

JL12 

A 1 

WX5 J 

^ Check parity 

5 

TP 

CX25 

LC3 1 

I 

6 

TP 

CX30 

LC4 

s Check label 

7 

RJ 

LC2 

LC j 

1 

10 

ZJ 

WX13 

WX11 

Was label in error? 

11 

12 

EF 

MS 

0 

0 

VF2 

SV2 

| If so, rewind tape & stop set to re-enter 

13 

EF 

0 

VF 

If not start read 

1 A 

rpi T 

nnro 

nn*? 



JL V 

I\L>UU 

TDI 


15 

TV 

CN22 

PB4 


16 

TV 

CN23 

PB5 


17 

TP 

CN7 

TM5 


20 

TU 

CN46 

PB6 


21 

TU 

CN46 

PB7 


22 

TV 

CN20 

FT20 


23 

TU 

CN20 

CN17 


24 

TV 

CN25 

FT 5 

Set initial buffer storage address 

25 

TP 

CN4 

TM4 

Set block index 

26 

TV 

CN24 

FT2 

Set initial drum address 

27 

RP 

10170 

WX31 

| Read 1 block 

30 

ER 

10000 

BU 

31 

32 

ER 

ZJ 

0 

JL21 

A 

WX33 

| Check parity 

33 

TV 

WX35 

MP2 


34 

RJ 

MP5 

MP 

Check: end of tape 

35 

TV 

MN25 

MP5 

If so -> ETl 

36 

EJ 

CX6 

ET1 

37 

MJ 

0 

FT23 

If not, to FT23 


CA 

WX40 





IA 

FT 



0 

RJ 

PB35 

PB 

Process blockette 

1 

ER 

10000 

A 

Read 1st word 

2 

TP 

A 

30000 

Store 1st word 

3 

EJ 

CX6 

ET 

End of Tape? If so —> ET 

4 

RP 

10023 

FT 6 1 

^ Read rest of blockette 

5 

ER 

10000 

30000 J 

6 

7 

RA 

RA 

FT2 

FT 5 

CN5 1 

CN5 J 

^ Increment addresses 

10 

IJ 

TM4 

FT 

Finished with block? 

11 

12 

ER 

ZJ 

0 

JL 

A 1 

FT 13 J 

^ Check parity 
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13 

RJ 

FT 13 

FT 14 

End of tape switch 



14 

RJ 

FT 14 

FT 15 

Last block of group switch 



15 

IJ 

TM5 

FT24 

Test: Is buffer full? If not 

go 

to FT24 

16 

EF 

0 

VF10 

If so, stop tape 



17 

20 

RP 

TP 

33220 

BU 

FT21 ) 

30000 J 

► Transfer corrections to drum 



21 

RJ 

ET20 

ETl 1 

Out to print errors and process 

: delete 





item no's. 



22 

RJ 

FT 14 

FT26 

Set last block of group switch 
FT23 and go to FT26 

to 

exit to 

23 

TU 

FT20 

PB 

Reset first buffer address 



24 

TP 

CN4 

TM4 

Set block index 



25 

MJ 

0 

FT 

Go back to FT 



26 

EF 

0 

VF 

Start read 



27 

TV 

WX2 

FT2 > 

| 



30 

31 

SP 

SA 

FT 2 

CN 

0 

0 

s Reset initial buffer address 



32 

TV 

A 

FT5 

I 



33 

TP 

CN10 

TM5 

Set buffer index 



34 

TP 

CN4 

TM4 

Set block index 



35 

RA 

FT20 

CN11 

Set for next drum transfer 



36 

TV 

CN41 

RB50 




37 

MJ 

0 

FT 





CA 

FT40 







IA 

PB 



0 

TP 

BU 

A 

Sentence number to A 

1 

EJ 

CX7 

PB22 

Is it all spaces? If so, go to PB22 

2 

3 

TP 

RJ 

A 

LN2 

LN4 1 

LN1 J 

\ Process line number 

4 

TP 

LN3 

30000 

Store line no. in table 

5 

TP 

CN17 

30000 

Store directory word in table 

6 

7 

TP 

TJ 

30000 

30000 

A ] 

PB74 J 

^ Test: Is item out of sequence? If so, 

go to PB74 

10 

TU 

PB6 

PB7 ' 


11 

12 

RA 

RA 

PB6 

PB4 

CN14 

CN1 

^ Set for next table entry 

13 

RA 

PB5 

CNl 


14 

IJ 

CX26 

PB33 

Have 300 corrections been processed? 

If not, go to PB33 

15 

16 

TV 

RA 

PB35 

FT 

FT 

CN 

^ If so, set to ignore remaining corrections 

17 

RJ 

FT 13 

PB35 

Back to read, remainder of block 

20 

EF 

0 

VF10 

Stop tape 

21 

MJ 

0 

SV61 

Go to SV61 to indicate error 

22 

TP 

PB 

A 1 

L 

23 

AT 

CN13 

PB24 J 

f Set up test 

24 

25 

TP 

EJ 

PB1 

RB62 

A 1 

DL J 

l Test: Is the first word of sentence 

' tnc*r dtp to T + ~ nr 


'DELETE*? If so, go to DL 
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26 

MJ 

0 

PB36 

If not, go to PB36 

27 

SP 

PB5 

17 > 


30 

ss 

CN14 

0 

> Continuation of last sentence. Increase 

3i 

TU 

A 

PB32 

| word count in directory word 

32 

RA 

30000 

CN5 J 

1 

33 

RA 

PB 

CN12 

Set for next blockette 

34 

RA 

CN17 

CN12 

Set for next table entry 

35 

MJ 

0 

30000 

Exit 

36 

TU 

PB24 

PB41 


37 

TP 

CX7 

A 



CA 

PB40 





IA 

PB40 



40 

41 

RP 

TJ 

20020 

30000 

PB27 1 
PB42 J 

^ Find 1st word that is not all spaces 

42 

TP 

RB63 

A ^ 


43 

ST 

Q 

TM 

Set address of 1st word that is not all 

44 

LA 

A 

17 

> spaces into PB24 and PB47 

45 

AT 

PB24 

PB24 j 


46 

TU 

A 

PB47 J 


47 

50 

TP 

EJ 

30000 

RB62 

A ] 

DL j 

- If word is delete, go to DL 

51 

52 

RP 

EJ 

20005 

RB55 

PB27 1 
PB53 J 

^ If word is not delete, test alignment of word 

53 

TP 

RB64 

A S 


54 

ST 

0 

TM 


55 

LA 

A 

1 

L Set number of shifts needed to put 1st 

56 

SA 

TM 

1 

significant character at 1st character 

57 

TV 

A 

PB65 

position 

60 

TU 

PB47 

PB64 > 


61 

TP 

CN37 

TM 


62 

TV 

DL2 

PB66 


63 

MJ 

0 

PB70 


64 

SP 

30000 

44 

> 

Align sentence and store 

65 

66 

SA 

TP 

30000 

A 

30000 

30000 

67 

RA 

PB66 

CN 


70 

TU 

PB64 

PB65 


71 

RA 

PB64 

CN13 


72 

IJ 

TM 

PB64 J 


73 

MJ 

0 

RB67 

Go to RB67 

74 

TV 

PB77 

PB7 

Set to bypass out of sequence test 

75 

TV 

PB4 

CN30 

Set address of 1st out of sequence item 
into CN30 

76 

TV 

PB77 

RB53 


77 

MJ 

0 

PB10 



CA 

PB100 




258 




Put aligned delete command into TM6-TM13 
Fill output lines in table with spaces 

Test: Is more than one sentence to be 
deleted? 

Position sentence number 

Set up storage address for line number 
Find length of number 

Set mask into Q 

Set line number into table and into A 

Go to RB65 

Set storage address 

Set mask into Q 
Go to RB 


0 

IA 

QT 

RB 

TM12 

A 

1 

TP 

A 

A 

2 

RP 

20005 

RB4 

3 

EJ 

CX 

RB10 

4 

TP 

CN6 

0 

5 

os 

TMIO 

30000 

6 

TV 

PB5 

DL5 

7 

MJ 

0 

DL14 

10 

TP 

RB64 

A 

11 

ST 

0 

TM 

12 

TJ 

CN3 

RB25 


Mask out character 

Check alignment of THRU to determine 
length of 1st number 

Character was not T,H,R,U or space. Put 
last character of TMIO into table 

Set new output storage 


Was first character of TM12 a T? 
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13 

SP 

TM11 

44 

14 

SA 

TM10 

36 

15 

TP 

A 

30000 

16 

LA 

TM 

A1 

17 

SA 

TM 

1 

20 

TV 

A 

RB22 

21 

SP 

TM13 

44 

22 

SA 

TM12 

30000 

23 

TP 

A 

TM12 

24 

MJ 

0 

RB6 

25 

LA 

A 

1 

26 

SA 

TM 

1 

27 

TV 

A 

RB32 

30 

TP 

CN3 

A 

31 

ST 

TM 

TM 

32 

SP 

CN50 

30000 

33 

TP 

A 

0 

34 

SP 

TM11 

44 

35 

SA 

TM10 

36 

36 

QS 

A 

30000 

37 

MJ 

0 

RB16 


CA 

RB40 



IA 

RB40 


40 

TP 

CN2 

TM 

41 

LQ 

TM12 

Q6 

42 

LQ 

Q 

6 

43 

QT 

CN6 

A 

44 

EJ 

CN 

30000 

45 

RA 

RB44 

CN1 

46 

IJ 

TM 

RB42 

47 

TP 

TM12 

30000 

50 

TV 

PB4 

30000 

51 

RA 

RB50 

CN 

52 

TP 

TM12 

30000 

53 

MJ 

0 

PB74 

54 

00 

6 

50000 

55 

01 

27304 

63066 

56 

01 

01273 

04630 

57 

01 

01012 

73046 

60 

01 

01010 

12730 

61 

01 

01010 

10127 

62 

27 

30463 

06630 

63 

00 

0 

20017 

64 

00 

0 

20005 

65 

TP 

A 

TM12 

66 

MJ 

0 

RB50 

67 

TP 

TM6 

A 

70 

EJ 

RB62 

DL3 

71 

MJ 

0 

PB27 


CA 

RB72 



} 


J 


If so, align TM10 and TM11 
Store 1st line number in table 

Set no. of shifts to align second line no. 

Align second line no. and put into TM12 
Go t o RB6 

Set no. of shifts to align first line no. 

Adjust index in TM 
Put mask into Q 

Store 1st line no. in table 
Go to RB16 


Set space test index to 3 

Mask out character and check for space 
If space is found, exit 

If no space is found, set to check next 
character 

If no more characters are to be tested, 
store all of TM12 in line no. position. 

Set table address of delete item into 
delete list 

Set for next delete item 
Store 2nd line number in table 
Exit to PB74 


Constants 


Store line number in TMl2 and go to RB50 


Test: Is first word of aligned sentence 
'Delete'? If so, go to DL3. If not, go to 
PB27 
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IA 

ET 


0 

RJ 

FT 13 

FT 4 

1 

EF 

0 

VF10 

2 

TU 

PB 

ET3 

3 

TP 

30000 

A 

4 

EJ 

CX6 

ET7 

5 

RJ 

PB35 

PB1 

6 

MJ 

0 

ET2 

7 

EF 

0 

VF2 

10 

RJ 

FT 17 

FT 17 

11 

RJ 

SV45 

SV23 

12 

TP 

RB50 

TM3 

13 

RS 

TM3 

CN41 

14 

SP 

CN41 

17 

15 

TU 

A 

ET22 

16 

IJ 

TM3 

ET22 

17 

RJ 

SV45 

SV23 

20 

RJ 

ET20 

ET21 

21 

MJ 

0 

ET70 

22 

TP 

30000 

A 

23 

TV 

A 

ET31 

24 

LA 

A 

17 

25 

TU 

A 

ET27 

26 

TP 

CN 

TM1 

27 

TP 

30000 

LN4 

30 

RJ 

LN2 

LN 

31 

TP 

LN3 

30000 

32 

RA 

ET27 

CN13 

33 

RA 

ET31 

CN 

34 

IJ 

TM1 

ET27 

35 

RA 

ET22 

CN13 

36 

MJ 

0 

ET16 

37 

TP 

CN52 

TM17 

40 

TP 

CN52 

TM15 

41 

TP 

CX37 

XX10 

42 

RP 

30003 

ET44 

43 

TP 

CX15 

XX13 

44 

TP 

CX34 

UP3 

45 

RJ 

UP2 

UP 

46 

TP 

CN4 

TM10 

47 

TP 

CN4 

TM5 


} 

} 

} 

} 

} 

} 


Set end of tape switch to exit to ET1 and 
go to FT4 
Stop tape 

Set next line number address 

End of tape? If so, go to ET7 

If not, process line number 
Go back for next item 
Rewind tape 4 

Transfer last group of corrections to drum 
Print Line Number Processor Errors for 
ordinary sentences 

Set to process delete command item numbers 


Finished with all delete command item 

numbers? If not go to ET22 

Print Line Number Processor errors 

Exit when used as subroutine 

Exit after end of tape has been found 

Set address of item number to be processed 


Process line number and store 

Set to process next item no. of delete 
command 

Finished with both line numbers? If not go 
to ET27 

If so, set for next delete item and go back 
to ET16 

Set out of sequence item counter to zero 

Reset tape label error print for servo 3 
and program tape 

Print: PROGRAM TAPE 

Set up write fill counter and write fill 
temp. 
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50 

TU 

CN46 

ET52 




51 

TP 

CN43 

TM1 




52 

TP 

30000 

A 




53 

ZJ 

ET56 

ET54 


> 

Find address of first non zero table entry 

54 

RA 

ET52 

CN14 




55 

IJ 

TM1 

ET52 

J 

I 


56 

SP 

ET52 

0 

> 



57 

ss 

CN46 

70 




60 

AT 

CN 

TM 




61 

RS 

CN43 

TM 


> 


62 

TU 

ET52 

MN42 



Set up address of 1st non zero table entry 

63 

TU 

ET52 

MN63 




64 

RA 

ET52 

CN13 




65 

TU 

A 

MN54 

j 



66 

r'l t-» 

nr 

n AAAO 

ouuuo 

mu 

\ 

y 

Set up printout for out of sequence items 

67 

TP 

CN55 

XX21 

J 


and go to MG 

70 

TP 

CN30 

A 

'N 



71 

EJ 

CN22 

GQ 



If 1st table item was a delete adjust number 

72 

TJ 

CN51 

SR 



of in sequence items 

73 

TV 

PB4 

CN30 

j 

i 


74 

MJ 

0 

SR 



Go to SR 


CA 

ET75 






IA 

GQ 





0 

RA 

CN30 

CN1 



Set new number of in sequence items 

1 

MJ 

0 

SI 





CA 

GQ2 






IA 

XX 




UP parameters & XS3 codes for printouts 

0 

01 

01010 

10101 

1 

L 


1 

47 

30543 

23022 

j 

1 

AAAAAA Merge. 

2 

26 

51545 

43026 

1 

I 


3 

66 

34515 

00166 

1 

i 


Correction Tape 

4 

24 

52300 

12277 

J 

1 


5 

71 

54515 

03201 




6 

66 

24523 

00165 

\ 

> 

Wrong Tape Servo_Should be_ 

7 

30 

54705 

10177 

J 



10 

01 

01010 

10101 




11 

65 

33516 

74627 




12 

01 

25300 

17777 




13 

01 

01010 

10101 




14 

01 

01010 

10101 




15 

01 

01010 

10101 




16 

65 

30506 

63050 

> 



17 

26 

30010 

10101 


s. 


20 

17 

27304 

63066 



Sentence-(Delete) 

21 

30 

43010 

10101 

J 

I 


22 

52 

54513 

25424 




23 

47 

01662 

45230 

j 


Program Tape 
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24 

00 

XX25 

6 


25 

66 

51510 

14724 ^ 


26 

50 

73012 

65154 

Too many corrections 300 is maximum 

27 

54 

30266 

63451 

L 

30 

50 

65010 

60303 

> 

31 

01 

34650 

14724 


32 

72 

34476 

74701 j 


33 

52 

24543 

46673 


34 

01 

54305 

43024 

Parity reread fails: to reread start. 

35 

27 

01312 

43446 

To ignore error set A not = 0 and start 

36 

65 

22016 

65101 


37 

54 

30543 

02427 


40 

01 

65662 

45466 


41 

22 

01665 

10134 


42 

32 

50515 

43001 


43 

30 

54545 

15401 


44 

65 

30660 

12401 


45 

50 

51660 

17601 


46 

03 

01245 

02701 


47 

65 

66245 

46622 


50 

52 

24543 

46673 

Parity Error ignored 

51 

01 

30545 

45154 


52 

01 

34325 

05154 


53 

30 

27227 

77777 


54 

00 

XX50 

4 


55 

01 

01010 

10101 


56 

52 

54513 

25424 

AAAAAAProgram now on tape 5. 

57 

47 

01505 

17101 


60 

51 

50016 

62452 


61 

30 

01102 

27777 


62 

01 

01010 

10101 

AAAAAAput 1500 ft. tapes on s. 3 and 4 

63 

52 

67660 

10410 


64 

03 

03013 

16622 


65 

01 

66245 

23065 


66 

01 

51500 

16522 


67 

01 

06012 

45027 


70 

01 

07227 

77777 


71 

00 

XX62 

7 



CA 

XX72 




IA 

SR 



0 

TV 

PB4 

CN43 1 

[ 

1 

RS 

CN43 

CN22 

f Set total number of items 

2 

LT 

43 

CN43 J 

I 

3 

TV 

CN30 

CN44 'I 


4 

RS 

CN44 

CN22 

!> Set number of in sequence items 

5 

LT 

43 

CN45 J 

1 

6 

SP 

CN45 

20 1 

L 

7 

AT 

CN33 

ZR10 J 

1 Set up transfer command 


263 



10 

TU 

CN46 

xz 

11 

SP 

CN45 

20 

12 

AT 

xz 

A 

13 

TU 

A 

XZ1 

14 

TP 

XZ1 

TM 

i ^ 

-L (J 

TD 

-i- X 

™^7 

Vi 1 V 1 

TM1 

16 

TV 

XZ20 

SR21 

17 

TV 

XZ15 

SR23 

20 

RA 

TM 

CN14 

21 

TU 

A 

30000 

22 

RA 

TM 

CN14 

23 

TU 

A 

30000 

24 

RA 

SR21 

CN35 

25 

RA 

SR23 

CN35 

9A 

im* 

IJ 

TM1 

SR20 

27 

TV 

SR 70 

XZ4 

30 

TP 

XZ4 

A 

31 

AT 

CN61 

XZ31 

32 

AT 

CN61 

XZ51 

33 

AT 

CN61 

XZ71 

34 

TV 

SR71 

XZ21 

35 

TP 

XZ21 

A 

36 

AT 

CN1 

XZ41 

37 

AT 

CN1 

XZ61 

40 

AT 

CN1 

XZ101 

41 

TV 

SR 72 

WT10 

42 

TP 

WT10 

A 

43 

AT 

CN61 

WT32 

44 

TV 

SR73 

WT21 

45 

TV 

SR74 

WT43 

46 

TV 

SR75 

NZ10 

47 

TP 

CN45 

A 

50 

ST 

CN 

TM 

51 

RA 

CN45 

CN47 

52 

TJ 

CN43 

SR64 

53 

TP 

CN43 

TM1 

54 

TV 

PB4 

SR 56 

55 

RP 

10036 

SR57 

56 

TP 

CN50 

30000 

57 

RJ 

ZR10 

SR66 

60 

TV 

SR77 

XY11 

61 

TV 

SR 76 

XY35 

62 

RP 

20005 

ET37 

63 

RS 

VF 

VF15 

64 

TP 

CN45 

TM1. 

65 

RS 

TM1 

CN 

66 

TV 

CN54 

ZR5 

67 

MJ 

0 

XZ 

70 

0 

0 

WT 

71 

0 

0 

WT51 


} 


Set addresses into compares 


Set initial exits of switches 


Set switch J to WT44 

Set switch L to WT46 

Set switch M to N226 

Set no. compares index. 

Form new no. of in sequence items 

Test: Is total no. of items > than new no.of 

in sequence items? 


Fill remainder of table with largest number 

Set parity reread exits for program tape 
Reset tape read codes for servo 3 
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72 

0 

0 

NZ 

73 

0 

0 

WT44 

74 

0 

0 

WT46 

75 

0 

0 

NZ26 

76 

0 

0 

XY65 

77 

0 

0 

XY73 


CA 

SR 100 



IA 

XZ 


0 

TP 

30000 

A ) 


1 

TJ 

30000 

XZ5 J 

Compare A 

2 

TU 

XZ1 

WT1 

3 

TU 

WT50 

XZ1 

4 

MJ 

0 

WT 

Switch A 

5 

TU 

XZ 

WT1 

6 

RA 

XZ 

CN14 

7 

IJ 

TM 

XZ4 

10 

TU 

WT50 

XZ 

11 

MJ 

0 

XZ4 

12 

13 

TP 

TJ 

30000 

30000 

A 1 

XZ17 J 

‘ Compare B 

14 

TU 

XZ13 

WT2 

15 

TU 

WT50 

XZ13 

16 

MJ 

0 

XZ21 

17 

TU 

XZ12 

WT2 

20 

TU 

WT50 

XZ12 

21 

MJ 

0 

WT51 

Switch B 

22 

23 

TP 

TJ 

30000 

30000 

A 1 

XZ27 J 

^ Compare C 

24 

TU 

XZ23 

WT12 

25 

TU 

WT50 

XZ23 

26 

MJ 

0 

XZ31 

27 

TU 

XZ22 

WT12 

30 

TU 

WT50 

XZ22 

31 

MJ 

0 

WT11 

Switch C 

32 

TP 

30000 

A 

L 

33 

TJ 

30000 

XZ37 

I Compare D 

34 

TU 

XZ33 

WT13 

35 

TU 

WT50 

XZ33 

36 

MJ 

0 

XZ41 

37 

TU 

XZ32 

WT13 


CA 

XZ40 



IA 

XZ40 


40 

TU 

WT50 

XZ32 

41 

MJ 

0 

WT53 

Switch D 

42 

TP 

30000 

A 

l 

43 

TJ 

30000 

XZ47 

J Compare E 

44 

TU 

XZ43 

WT23 

45 

TU 

WT50 

XZ43 

46 

MJ 

0 

XZ51 

47 

TU 

XZ42 

WT23 
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Switch E 


50 

TU 

WT50 

XZ42 

51 

MJ 

0 

WT22 

52 

TP 

30000 

A 

53 

TJ 

30000 

XZ57 

54 

TU 

XZ53 

WT24 

55 

TU 

WT50 

XZ53 

56 

MJ 

0 

XZ61 

57 

TU 

XZ52 

WT24 

60 

TU 

WT50 

XZ52 

61 

MJ 

0 

WT55 

62 

TP 

30000 

A 

63 

TJ 

30000 

XZ67 

64 

TU 

XZ63 

WT34 

65 

TU 

WT50 

XZ63 

66 

MJ 

0 

XZ71 

67 

TU 

XZ62 

WT34 

70 

TU 

WT50 

XZ62 

71 

MJ 

0 

WT33 

72 

TP 

30000 

A 

73 

TJ 

30000 

XZ77 

74 

TU 

XZ73 

WT35 

75 

TU 

WT50 

XZ73 

76 

MJ 

0 

XZ101 

77 

TU 

XZ72 

WT35 

100 

TU 

WT50 

XZ72 

101 

MJ 

0 

WT57 


CA 

XZ102 



IA 

WT 


0 

RJ 

XZ4 

XZ12 

1 

TP 

30000 

A 

2 

TJ 

30000 

WT6 

3 

TU 

WT2 

NZl 

4 

TV 

XZ20 

NZ22 

5 

MJ 

0 

WT10 

6 

TU 

WT1 

NZl 

7 

TV 

XZ10 

NZ22 

10 

MJ 

0 

NZ 

11 

RJ 

XZ31 

XZ32 

12 

TP 

30000 

A 

13 

TJ 

30000 

WT17 

14 

TU 

WT13 

NZ2 

15 

TV 

XZ40 

NZ23 

16 

MJ 

0 

WT21 

17 

TU 

WT12 

NZ2 


} 


} 


} 


} 


} 


Compare F 


Switch F 
Compare G 


Switch G 
Compare H 


Switch H 


Set switch A to exit to WT1 and go to XZ12 
Compare I 


Switch I 

Set Switch C to exit to WT12 and go to XZ32 
Compare J 
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20 

TV 

XZ30 

NZ23 

21 

MJ 

0 

WT44 

22 

RJ 

XZ51 

XZ52 

23 

TP 

30000 

A 

24 

TJ 

30000 

WT30 

25 

1U 

WT24 

NZ 12 

26 

TV 

XZ60 

NZ24 

27 

MJ 

0 

WT32 

30 

TO 

WT23 

NZ12 

31 

TV 

XZ50 

NZ24 

32 

MJ 

0 

NZl 1 

33 

RJ 

XZ71 

XZ72 

34 

TP 

30000 

A 

35 

TJ 

30000 

WT41 

36 

TO 

WT35 

NZl 3 

37 

TV 

XZ100 

NZ25 

40 

MJ 

0 

WT43 

41 

TO 

WT34 

NZ13 

42 

TV 

XZ70 

NZ25 

43 

MJ 

0 

WT46 

44 

TV 

WT10 

WT21 

45 

MJ 

0 

WT23 

46 

TV 

WT32 

WT43 

47 

MJ 

0 

NZl 

50 

00 

CN50 

0 

51 

TV 

XZ4 

XZ21 

52 

MJ 

0 

XZ22 

53 

TV 

XZ31 

XZ41 

54 

MJ 

0 

XZ42 

55 

TV 

XZ51 

XZ61 

56 

MJ 

0 

XZ62 

57 

TV 

XZ71 

XZ101 

60 

MJ 

0 

WT1 


CA 

WT61 



IA 

NZ 


0 

RJ 

WT10 

WT12 

1 

TP 

30000 

A 

2 

TJ 

30000 

NZ6 

3 

TO 

NZ2 

ZR 

4 

TV 

NZ23 

ZR15 

5 

MJ 

0 

NZ10 

6 

TO 

NZl 

ZR 

7 

TV 

NZ22 

ZR 15 


} 


Switch J 

Set Switch E to exit to WT23 and go to XZ52 
Compare K 


Switch K 

Set Switch G to exit to WT34 and go to XZ72 
Compare L 


Switch L 

Set Switch J to exit to NZl and go to 
compare K 

Set Switch L to exit to NZ11 and go to 
compare M 


Compare M 
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Switch M 


10 

MJ 

0 

NZ26 

11 

RJ 

WT32 

WT34 

12 

TP 

30000 

A 

13 

TJ 

30000 

NZ17 

14 

HJ 

NZ13 

ZR1 

15 

TV 

NZ25 

ZR16 

16 

MJ 

0 

ZR 

17 

IU 

NZ12 

ZR1 

20 

TV 

NZ24 

ZR16 

21 

MJ 

0 

ZR 

22 

0 

0 

30000 

23 

0 

0 

30000 

24 

0 

0 

30000 

25 

0 

0 

30000 

26 

TV 

NZ21 

NZ10 

27 

MJ 

0 

NZ12 


CA 

NZ30 



IA 

ZR 


0 

TP 

30000 

A 

1 

TJ 

30000 

ZR12 

2 

TU 

ZR1 

ZR5 

3 

TV 

ZR16 

ZR7 

4 

RP 

30002 

ZR6 

5 

TP 

30000 

30000 

6 

RA 

ZR5 

CN1 

7 

IJ 

Til 

30000 

10 

RP 

30000 

30000 

11 

TP 

BU 

IB 

12 

TU 

ZR 

ZR5 

13 

TV 

ZR15 

ZR7 

14 

MJ 

0 

ZR4 

15 

00 

0 

30000 

16 

00 

0 

30000 


CA 

ZR17 



IA 

MG 


0 

EF 

0 

VF3 

1 

RP 

10170 

MG3 

2 

ER 

10000 

BU 

3 

ER 

0 

A 

4 

ZJ 

JL24 

MG 5 

5 

TP 

CX24 

LC3 

6 

TP 

CX30 

LC4 

7 

RJ 

LC2 

LC 

10 

ZJ 

MG13 

MG 11 

11 

EF 

0 

VF2 

12 

MS 

0 

MG 

13 

EF 

0 

VF13 

14 

RP 

10170 

MG 16 

15 

EW 

10000 

BU 


} 

} 

} 


Compare N 


Storage for return address 


C Compare I 
I Compare J 
] Compare K 
^Compare L 


Set Switch M to ZR and go to compare N 


Compare P 


Transfer table item to buffer 

Set next buffer address 

Test: finished with this group of items? 

Yes: Transfer sorted string back to table 


Read label block 

Check parity 

Check label 

Was label correct? 

If not, rewind tape and stop set to re-enter 
If so, write label block on tape 5 
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Start read 


16 

EF 

0 

VF 

17 

SP 

MN1 

17 

20 

TO 

A 

MN5 

21 

SP 

CN24 

17 

22 

TO 

A 

MN13 

23 

TV 

MN1 

MN36 

24 

TV 

CN24 

MN12 

25 

TP 

CN4 

TM4 

26 

TP 

CN4 

IM2 

27 

TP 

CN62 

TM1 

30 

TP 

CN62 

IM3 

31 

TO 

MN5 

NW23 

32 

TV 

MN77 

MN64 

33 

TO 

MN5 

KW3 

34 

TV 

CN26 

MN63 

35 

TV 

NW56 

MN65 

36 

TO 

CN26 

KW5 

37 

TO 

CN26 

KW6 

40 

TP 

CX7 

LN3 


CA 

MG41 



IA 

MN 


0 

RP 

10170 

MN2 

1 

ER 

10000 

BU 

2 

ER 

0 

A 

3 

ZJ 

XY52 

MP 

4 

TP 

CN4 

IM4 

5 

TP 

BU 

A 

6 

TP 

CN 

TM14 

7 

RJ 

NR25 

MN33 

10 

MJ 

0 

MN11 

11 

RP 

10024 

MN13 

12 

ER 

10000 

BU 

13 

TP 

BUI 70 

A 

14 

EJ 

CX6 

NR 

15 

RA 

MN5 

CN12 

16 

MJ 

0 

MN17 

17 

RA 

MN12 

CN5 

20 

RA 

MN13 

CN12 

21 

IJ 

TM4 

MN5 

22 

ER 

0 

A 

23 

ZJ 

XY55 

MN24 

24 

RJ 

MN24 

MN25 

25 

IJ 

TM2 

MN4 

26 

EF 

0 

VF 10 

27 

TP 

CN4 

TM14 

30 

TO 

MN5 

MN32 

31 

TV 

CN42 

NR25 

32 

TP 

30000 

A 

33 

EJ 

CX7 

MN36 

34 

TP 

A 

LN4 




> 


} 

} 

} 

} 

} 

} 

} 

} 


} 


Set up initial buffer addresses 


Set block index 
Set buffer index 

Set No. of blockettes into 1M1 and TM3 


Set initial correction buffer address 
into KW5 and KW6 
MN must equal MG41 


Read block 

Check Parity 
Set block index 


Read blockette 

Was line no. all Z* s? If so, go to NR 


Set for next blockette 


Finished with block? 

If so, check parity 

End of tape switch 
Finished filling buffer? 

If so, stop tape 

Set to process line numbers of last block 

Test: Is line number all spaces? If so, 
go to MN36 
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LN1 

30000 

A 


Process line number 

Put processed line number back in buffer 


35 

RJ 

LN2 

36 

TP 

LN3 

37 

TP 

LN3 


CA 

MN40 



Test: was line number illegal? If so, go 

to NR23. If not, go to NR17 

Put last legal line number into LN3 

Correction item number to A 

Test: does correction refer to this group 

of program items? 

If not, fill next correction buffer loca¬ 
tion with largest number 
Go to NW46 

Set new exit for drum transfer command 
Set new exits for tests at MN43 and MN44 
and go to MN66 

Test: Is this a delete sentence? 

Equal Switch for drum items 
Set drum address into MN65 

Set number of words into MN64 


Item number to correction buffer 
Remainder of item from drum to correction 
buffer 

Set address of last item transferred 
Set next correction buffer location 

Set for next table entry 

Have corrections been exhausted? 

Out to block next correction phase 

Set to ignore additional lines of Z's 
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IA 

NW 



0 

RJ 

MN56 

MN102 

Set equal switch for drum items 

1 

RJ 

NW44 

NW44 


2 

MJ 

0 

MN72 


3 

4 

RS 

AT 

MN63 

CN 

1M14 1 

MN65 J 

^ Reset transfer command 

5 

IU 

MN54 

NW7 1 

Set up test 

6 

HJ 

MN42 

NW10 J 

7 

TP 

TB1 

A 1 

i Test: Is item to be deleted? If not, go 

10 

TJ 

IB 

NW14 J 

1 to NW14 

11 

RA 

NW10 

CN14 

If so, set to test next item 

12 

IJ 

CN43 

NW7 

Test: Are there any more correction items 
to be tested? If so, go to NW7 

13 

MJ 

0 

LP 

Out to set end of corrections 

14 

TU 

NW10 

MN42 ^ 


15 

IU 

NW10 

MN63 1 


16 

IU 

NIV10 

MN54 1 

f Reset table addresses 

17 

RA 

MN54 

CN13 J 

1 

20 

MJ 

0 

MN42 

Go to MN42 

21 

IU 

MN42 

NW24 


22 

IU 

MN54 

NW34 


23 

TP 

BU 

A 

l Test: Is program item greater than 1st 

24 

TJ 

30000 

NW26 J 

I delete address? If not, go to NW26 

25 

MJ 

0 

NW31 

If so, go to NW31 

26 

RA 

NW23 

CN12 

Set to test next item 

27 

IJ 

IMl 

NW23 

Have all items been tested? If not, go 
back to NW23 

30 

MJ 

0 

MN45 

If so, go to MN45 

31 

LQ 

NW23 

Q25 " 

I 

32 

TV 

Q 

NW36 

> Set address of item from above into NW35 

33 

IU 

NW23 

NW35 j 

( 

34 

TP 

IBl 

A 

Last address of delete item to A 

35 

TJ 

30000 

NW44 

Test: Is this program item to be deleted? 

36 

TP 

CN52 

30000 

Yes, store zero in line number position so 




that item will be dropped 

37 

RA 

NW35 

CN12 

y Set for next program item 

40 

RA 

NW36 

CN5 


41 

RA 

NW23 

CN12 j 


42 

IJ 

IMl 

NW34 

Test: Finished with current group of pro¬ 
gram items? If not, go back to test next item 

43 

MJ 

0 

NW52 

If so, go to NW52 

44 

RJ 

NW44 

NW45 


45 

MJ 

0 

NW5 


46 

RJ 

SV45 

SV23 

Print line number processor errors 

47 

MJ 

0 

KW 



CA 

NW50 
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IA 

NW52 



52 

LQ 

NW24 

Q25 } 

! 

53 

TV 

0 

NW54 , 

r Set zero as 1st address of delete command 

54 

TP 

CN52 

30000 J 

1 

55 

MJ 

0 

MN45 


CIA 

ou 

nr* 

n 

mi 

VU X 



CA 

NW57 




IA 

KW 



0 

1 

TP 

AT 

TM10 

CN 

A 1 

IM7 J 

^ Set up write fill index 

2 

EF 

0 

VF12 

Start write 

3 

TP 

30000 

A 

Current program item no. to A 

4 

ZJ 

KW5 

KW34 

Is it to be deleted? 

5 

TJ 

30000 

KW23 

Is current correction item >than current 

nv»n rt m ■» 4- nmQ 

6 

EJ 

30000 

KW14 

ui uvji am x iv/iui 

Is current correction item = to current prog, item 

7 

TO 

KW5 

IM 

Set correction item address into TM- 

10 

11 

RA 

TO 

KW5 

A 

CN12 1 
KW6 J 

^ Set for next correction item 

12 

RJ 

BJ34 

BJ 

Out to set up and write blockette 

13 

MJ 

0 

KW3 

Back for next item 

14 

15 

RA 

TP 

KW3 

A 

CN12 1 

KW20 J 

\ Set for next program item 

16 

IJ 

TM3 

KW20 

Finished with all program items 

17 

MJ 

0 

UN32 

If so, go to UN32 to write remainder of 
block 

20 

00 

30000 

30000 ^ 

i Test: Is next program blockette a contin- 

21 

EJ 

CX7 

KW14 J 

1 uation of last sentence? 

22 

MJ 

0 

KW7 

If not, go to KW7 to write correction item 

23 

TO 

KW3 

TM 


24 

RA 

KW3 

CN12 


25 

TP 

A 

KW31 


26 

IJ 

IM3 

KW30 

Test: finished with all progi <u items? If 
not, go to KW30 

27 

MJ 

0 

UN 

If so, go to UN 

30 

RJ 

BJ34 

BJ 

Set up and write next blockette 

31 

00 

30000 

30000 


32 

EJ 

CX7 

KW23 


33 

MJ 

0 

KW3 


34 

RA 

KW3 

CN12 


35 

IJ 

1M3 

KW3 

Finished with all program items? If not, 
go to KW3 

36 

MJ 

0 

UNI 

If so, go to UNI 


CA 

KW37 




272 




IA 

BJ 



0 

IJ 

TM7 

BJ26 

Has whole block been set up? If not, go 
to BJ26 

1 

RJ 

BJ1 

BJ11 


2 

RJ 

BJ 1 

BJ13 


3 

RJ 

BJ1 

BJ15 


4 

RJ 

BJ1 

BJ17 


5 

RJ 

BJ1 

BJ21 


6 

RJ 

BJ1 

BJ23 


7 

TV 

CN53 

BJ27 

Reset store address of 1st write 

10 

RJ 

BJ 1 

BJ34 

Reset switch to write 1st blockette 

11 

RP 

10024 

BJ25 1 

1 Write 1st blockette and go to BJ25 to set 

12 

EW 

10000 

30000 J 

1 up new '1st Blockette' 

13 

RP 

10024 

BJ25 1 

1 Write 2nd blockette and go to BJ25 to set 

14 

EW 

10000 

30000 J 

i up new '2nd Blockette' 

15 

RP 

10024 

BJ25 1 

> Write 3rd blockette and go to BJ25 to set 

16 

EW 

10000 

30000 J 

up new '3rd Blockette' 

17 

RP 

10024 

BJ25 1 

I Write 4th blockette and go to BJ25 to set 

20 

EW 

10000 

30000 J 

1 up new '4th Blockette' 

21 

RP 

10024 

BJ25 1 

i Write 5th blockette and go to BJ25 to set 

22 

EW 

10000 

30000 J 

I up new '5th Blockette' 

23 

RP 

10024 

BJ25 1 

l Write 6th blockette and go to BJ25 to set 

24 

EW 

10000 

30000 J 

i up new '6th Blockette’ 

25 

RJ 

BJ25 

BJ26 

26 

27 

LQ 

TV 

TM 

Q 

Q25 1 

BJ12 J 

^ Set address from TM into write command 

30 

RA 

BJ27 

CN1 

Set for next write command 

31 

IJ 

IM5 

BJ34 

Has full block been written? 

32 

TP 

CN4 

TM5 

Reset index 

33 

MJ 

0 

BJ7 

Back to BJ7 

34 

MJ 

0 

30000 

Exit 


CA 

BJ35 




IA 

UN 



0 

RJ 

BJ34 

BJ 

Set up and write last block 

1 

TV 

BJ27 

TM11 ] 

l Store index and address of next write 

2 

TP 

IM5 

TM10 J 

1 command to be set up 

3 

4 

RJ 

IJ 

BJ25 

1M5 

BJ 1 

UN3 J 

j> Write remainder of block 

5 

EF 

0 

VF10 

Stop tape 

6 

RJ 

UN56 

UN34 

Transfer unwritten blockettes to temp buffer 

7 

MJ 

0 

MG 16 

Go back to MG16 for next group of program 
tape items 

10 

11 

TP 

TP 

CN52 

CN50 

IM14 1 
LN3 J 

\ Put largest number into LN3 

12 

TP 

CN50 

30000 

Put largest number into end of tape line 

13 

RJ 

UN33 

MN42 

Out to bring in remaining corrections 

14 

TP 

CX6 

30000 

Reset all Z's into end of tape line 

15 

16 

LA 

RA 

CN30 

UN64 

17 

TM5 

^ Set index for remaining block(s) 

17 

TU 

CN30 

TM 

Set address of end of tape line into TM 
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20 

21 

RJ 

IJ 

BJ34 

UN64 

BJ 

UN20 

1 

J 

f 

Write remaining block(s) 

22 

EF 

0 

VF10 



Stop tape 

23 

IJ 

1M17 

UN25 



Are there more out of sequence items? 

24 

MJ 

0 

RS6 

x 


If not, go to RS6 

25 

26 
27 

TP 

TP 

RJ 

CX27 

IM20 

UP2 

UPS 

XX20 

UP 

\ 

1 

J 

> 

If so, fill in sentence number and print: 
SENTENCE - OUT OF SEQUENCE 

30 

RA 

UN26 

CN13 



Set for next item 

31 

MJ 

0 

UN23 



Back to test 

32 

TU 

KW5 

IM 


L 

Set correction item address into TM and go 

33 

MJ 

0 

UN 

J 

r 

\ 

to UN 

34 

TU 

CN42 

UN37 




35 

TP 

CN4 

TM 




n / 

OO 

mtr 

IV 

om/ rv 

l/l\OU 

it»t 4n 



Set temp buffer address into transfer command 

37 

SP 

30000 

17 

1 

1 

[ 

Set address of item into transfer command 

40 

1U 

A 

UN42 

J 

1 


41 

RP 

30024 

UN43 

1 

L 

Move blockette to temp buffer so it will 

42 

TP 

30000 

30000 

J 

> 

1 

not be overwritten by next read in 

43 

RA 

UN37 

CN14 


! 

Set for next blockette 

44 

RA 

UN42 

CN5 

1 

J 

\ 

45 

IJ 

1M 

UN37 



Have all blockettes been transferred? If 
not, go to UN37 

46 

TP 

CN60 

A 




47 

TP 

A 

BJ12 




50 

AT 

CN5 

BJ14 


> 


51 

AT 

CN5 

BJ16 


Reset addresses of write commands 

52 

AT 

CN5 

BJ20 




53 

AT 

CN5 

BJ22 




54 

AT 

CN5 

BJ24 

J 



55 

TP 

IM10 

TM5 




56 

MJ 

0 

30000 



Exit 

57 

TP 

A 

TM20 



Store sentence no. of out of sequence item 

60 

TP 

CN52 

LN3 



Set a zero into LN3 so item will be deleted 

61 

RA 

UN57 

CN 

\ 

[ 

Set for next out of sequence item 

62 

RA 

TM17 

CN 

J 


63 

MJ 

0 

MN36 




64 

0 

0 

14 





CA 

UN65 






IA 

NR 





0 

TV 

MN12 

CN30 



Set address of end of tape line into CN30 

1 

TP 

IM4 

TM16 



Store block index 

2 

RJ 

MN24 

MN100 



Set End of Tape Switch to exit to NR3 and 
go to MN100 

3 

EF 

0 

VF10 



Stop tape 

4 

TP 

CN30 

A 




5 

SS 

CN54 

0 

1 


Compute no. of blockettes read in before 

6 

DV 

CN5 

1M3 

1 

> 

end of tape and set into TM3 and TM1 

7 

TP 

0 

TM1 
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10 

TP 

CN3 

A \ 

Compute no. of line number left to be 

11 

ST 

TM16 

TM14 J 

processed 

12 

TV 

CN30 

UN12 \ 

Set address of end of tape line 

13 

TV 

CN30 

UN14 J 

14 

SJ 

UN10 

NR15 

If no line numbers are left to be processed, 
go to UN10 

15 

RJ 

NR26 

MN30 

Out to process line numbers 

16 

MJ 

0 

UN10 

Go to UN10 

17 

EJ 

CX7 

NR23 

Was line number all spaces? If so, go to 
NR23 

20 

TJ 

TM15 

UN57 

Was previous line number greater than this 
line number? If so, go to UN57 

21 

TP 

LN3 

TM15 

If not, set current line number into TM15 

22 

TP 

CX7 

LN3 

Put all spaces into LN3 

23 

RA 

MN36 

CN5 \ 

Set for next line number 

24 

RA 

MN32 

CN12 J 

25 

IJ 

TM14 

[MN32] 

Finished with all line numbers 

26 

MJ 

0 

MN41 

Exit to MN41 


CA 

NR27 




IA 

MP 



0 

TO 

MN5 

MP1 

Set up line number address 

1 

TP 

30000 

A \ 

Is line number all Z's? If so, go to MP6 

2 

EJ 

CX6 

MP6 J 


3 

RA 

MP1 

CN12 

If not, set for next line number 

4 

IJ 

IM4 

MP1 

Finished with all line numbers? If not, go 
to MP1 

5 

RJ 

MP2 

[MN4] 

Exit, end of tape not found 

6 

EF 

0 

VF10 

Stop tape 

7 

10 

LQ 

TV 

MP1 

Q 

Q25 \ 

CN30 J 

Set address of end of tape line into CN30 

11 

TP 

IM4 

TM16 

Store block index 

12 

MJ 

0 

NR 4 

Go to NR4 


CA 

MP13 




IA 

LP 



0 

TV 

LP2 

NR26 \ 

Set to bypass correction phase 

1 

TV 

LP2 

UN13 J 

2 

MJ 

0 

MN45 


3 

ZJ 

LP4 

JL30 

Is parity error to be ignored? If not, go 
to JL30 

4 

TP 

XX54 

UP3 

If so, print: PARITY ERROR IGNORED 

5 

RJ 

UP2 

UP 

6 

MJ 

0 

XY15 

Go to XY15 to reposition tape 


CA 

LP7 
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Parity Error Routine 



IA 

JL 



r\ 

KJ 

nmr 

J. V 

FT2 

xrtrr- \ 

AID 


l 

SP 

FT2 

17 r 

Set addresses into reread 

2 

TU 

A 

XY10 J 


3 

RJ 

FT13 

FT13 

Clear end of tape indicator 

4 

RJ 

XY20 

JL26 

Reread 

5 

RJ 

JL5 

JL6 

End of tape? 

6 

TP 

1M5 

A X 

Buffer index = 0 

7 

ZJ 

JL10 

FT17 J 


10 

EF 

0 

VF 

Start read 

11 

MJ 

0 

FT13 

Exit 

1 O 
XC. 

anr 

X V 

1»TV A 

na 4 * 

JL20 

Set exit 

13 

TV 

CN24 

XY5 ) 


14 

SP 

CN24 

17 r 

Set addresses into reread 

15 

TU 

A 

XY10 J 


16 

RJ 

XY20 

JL26 

Reread 

17 

RJ 

JL5 

JL5 

Clear end of tape indicator 

20 

MJ 

0 

T30000] 

Exit 

21 

RJ 

JL11 

JL 

Out for set up 

22 

TV 

FT12 

JL11 


23 

MJ 

0 

FT23 

Exit 

24 

RJ 

JL20 

JL13 

Out for set up 

25 

MJ 

0 

MG5 

Exit 

26 

RJ 

JL26 

JL27 


27 

RJ 

JL26 

XY1 l 

Distributor for reread cycles 

30 

RJ 

JL26 

XY23 ( 


31 

RJ 

JL26 

XY45 J 


32 

TP 

CX32 

UP3 'l 

Print error indication 

33 

RJ 

UP2 

UP / 


34 

TP 

CN52 

A 

Set A to 0 

35 

MS 

0 

LP3 

Stop set to re-enter 


CA 

JL36 
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Reread Cycles for Parity Error 


IA XY 


0 

00 

0 

XY1 


1 

TP 

CN4 

TM4 

Set block index 

2 

EF 

0 

VF1 

Start read backward 1 block 

3 

TP 

CN21 

IM6 

Set blockette index 

4 

RS 

XY5 

CN 

Reset read command 

5 

ER 

10000 

[30000] 

Read word 

6 

IJ 

TM6 

XY4 

Finished with blockette 

7 

RS 

XY10 

CN12 

Set for blockette 

10 

TP 

[30000] 

A 1 
j 

End of corrections? (i.e., line number 
> all Z’s) 

11 

EJ 

CX6 

XY21 J 

1 

12 

IJ 

TW4 

XY3 

Finished with block? 

13 

ER 

0 

A 1 

\ Check parity 

14 

ZJ 

JL26 

XY15 J 

r 

15 

EF 

0 

VF4 

Move forward 1 block 

16 

RJ 

JL26 

JL26 

Reset distributor 

17 

EF 

0 

VF5 

Set to normal bias 

20 

MJ 

0 

30000 

Exit 

21 

TV 

XY51 

JL5 


22 

MJ 

0 

XY12 


23 

EF 

0 

VF6 

Set to low bias 

24 

TP 

CN4 

TM4 

Set block index 

25 

TV 

XY5 

XY31 1 

L Set initial addresses 

26 

TO 

XY10 

XY34 J 

1 

27 

EF 

0 

VF3 

Start read 

30 

TP 

CN21 

TM6 

Set blockette index 

31 

ER 

10000 

[30000] 

Read word 

32 

RA 

XY31 

CN 

Set for next word 

33 

IJ 

IM6 

XY31 

Finished with blockette 

34 

TP 

[30000] 

A 1 

1 End of corrections 

35 

EJ 

CX6 

XY47 J 

r 

36 

RA 

XY34 

CN12 

Set for next blockette 

37 

IJ 

TM4 

XY30 

Finished with block 

40 

ER 

0 

A 1 

^ Check parity 

41 

ZJ 

XY42 

XY16 J 

42 

TV 

XY31 

XY5 

Parity error: Reset addresses 

43 

TO 

XY34 

XY10 

and go back to reread 

44 

MJ 

0 

XY1 


45 

EF 

0 

VF7 

Set to high bias 

46 

MJ 

0 

XY24 

Go to reread 

47 

TV 

XY51 

JL5 


50 

MJ 

0 

XY36 


51 

00 

XY51 

ET2 
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52 

RJ 

XY60 

XY55 

Set XY go to exit to NI and go to XY55 

53 

EF 

0 

VF 

Start read 

54 

MJ 

0 

MN4 

Go to MN4 

55 

TV 

MN12 

XY51 1 

^ Set address into end of tape test 

56 

TU 

MN13 

XY10 J 

5/ 

RJ 

XY20 

JL26 

Reread 

60 

RJ 

XY60 

XY61 

Exit 

61 

TP 

TM2 

A 1 

i Test: Is buffer full? If so, go to MN27 

62 

ZJ 

XY63 

MN27 J 

1 If not, take next instruction 

63 

EF 

0 

VF 

Start read 

64 

MJ 

0 

MN25 


65 

LQ 

XY34 

Q25 N 


66 

TV 

0 

CN30 


67 

RJ 

NR2 

NR1 

L 

70 

TV 

MN24 

XY60 


71 

TV 

XY72 

XY35 


72 

MJ 

0 

XY36 > 


73 

TV 

XY5 

CN30 


74 

TP 

CN4 

A 


75 

ST 

TM4 

TM16 


76 

RJ 

NR 2 

NR 2 


77 

TV 

MN24 

XY60 


100 

RA 

XY60 

CN 


101 

MJ 

CA 

IA 

0 

XY102 

LC 

XY22 


0 

MJ 

0 

LC5 


1 

RS 

TM 

TM 

Set A = 0 to indicate error 

2 

MJ 

0 

[30000] 


3 

00 

30000 

30000 1 

1 Storage for correct label 

4 

00 

30000 

30000 . 

r 

5 

TP 

CX5 

IM3 


6 

TU 

LC3 

LC 11 


7 

SP 

LC3 

17 


10 

1U 

A 

LC47 


11 

TP 

30000 

A 1 

1 Find 1st word that is not all spaces 

12 

EJ 

CX7 

LC15 J 

I 

13 

RP 

20006 

LC17 1 

i Determine alignment of 1st word that is 

14 

EJ 

CX10 

LC22 J 

1 not all spaces 

15 

RA 

LC11 

CN13 ] 

\ Find 1st word that is not all spaces. 

16 

IJ 

TM3 

LC 11 J 

17 

TP 

LC4 

UP3 ) 


20 

RJ 

UP2 

UP ; 

> Error - out to print 

21 

MJ 

0 

LC1 J 

1 

22 

TP 

CX23 

A ) 


23 

ST 

0 

TM 


24 

EJ 

CN37 

LC55 

. Set up number of shifts needed to align 

? sentence 

25 

LA 

A 

1 

26 

SA 

TM 

1 


27 

TV 

A 

LC36 
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Set up addresses and index 


30 

IU 

LC11 

LC36 

31 

RA 

LC11 

CN13 

32 

1U 

A 

LC35 

33 

TV 

LC23 

1X37 

34 

TP 

CN1 

TM3 

35 

SP 

30000 

44 

36 

SA 

30000 

30000 

37 

TP 

A 

30000 

40 

TU 

LC35 

LC36 

41 

RA 

LC35 

CN13 

42 

RA 

LC37 

CN 

43 

IJ 

TM3 

1X35 

44 

TU 

LC26 

LC46 

45 

TP 

CN 

TM3 

46 

TP 

30000 

A 

47 

EJ 

30000 

LC51 

50 

MJ 

0 

LC17 

51 

RA 

LC46 

CN13 

52 

RA 

LC47 

CN13 

53 

IJ 

IM3 

1X46 

54 

MJ 

0 

LC2 

55 

IU 

LC11 

1X46 

56 

MJ 

0 

LC45 


CA 

1X57 



Align label so that 1st significant 
character is to left 


Check a word of label. 

Word is incorrect; go to LC17 
Set to check next word 

All words have been checked and label is OK 


Tape Codes 



IA 

VF 



0 

02 

00002 

[4]0000 

Read forward 

1 

02 

00612 

[410000 

Read backward (stop included) 

2 

02 

00200 

[430000 

Rewind 

3 

02 

00602 

[410000 

Read forward (stop included) 

4 

02 

00004 

[4]0001 

Move forward 1 block 

5 

02 

00001 

50000 

Set normal bias 

6 

02 

00001 

60000 

Set low bias 

7 

02 

00001 

70000 

Set high bias 

10 

02 

00600 

00000 

Stop tape 

11 

02 

200 

50000 

Rewind servo 5 

12 

02 

00146 

50000 

Write 1” bkt, 2.4" bk, 128/in-servo 5 

13 

02 

00746 

50000 

Write 1" bkt, (stop included) 

14 

00 

20000 

04000 

Bypass buffer 

15 

00 

0 

10000 

Increment to reset tape codes 


CA 

VF 16 
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Excess Three Characters and Words 



T A 

Xrt 

r*v 

OA 




0 

54 

00000 

00000 

R 


1 

67 

00000 

00000 

U 


2 

01 

00000 

00000 

A 


3 

33 

00000 

00000 

H 


4 

66 

00000 

00000 

T 


5 

00 

00000 

00022 

Period 


6 

74 

74747 

47474 

All Z's 


7 

01 

01010 

10101 

All spaces 


10 

01 

67503 

42651 

A U N I C 0 


i i 

I 1 

n i 

Ui 

r\ -t / rr r- 

UiO 1 J 

r\ o a c\ / 

UO^^O 

A A U N I C 


12 

01 

01016 

75034 

A A A u n i 


13 

01 

01010 

16750 

A A A A u n 


14 

01 

01010 

10167 

A A A A A u 


15 

67 

50342 

65127 

UNICODE 


16 

30 

01525 

45132 

E A P R 0 G 


17 

20 

54 

67 

24470 

50342 

12201 

65127 

R A M A . A 

U N I C 0 D 

> Tape labels 

21 

30 

01265 

15454 

E A C 0 R R 


22 

30 

26663 

45150 

E C T I 0 N J 


23 

00 

0 

20006 



24 

00 

BU 

CX15 



25 

00 

BU 

CX20 



26 

00 

0 

454 

Index for no. corrections 

27 

00 

XX16 

6 

To set index 


30 

00 

XX5 

11 

Constants for error 

print - correction tape 

31 

00 

XX55 

5 

Constants for error 

print - program tape 

32 

00 

XX 33 

15 

Constants for error 

print - parity error 

33 

00 

XX2 

3 

Constants for heading print - correction tape 

34 

00 

XX22 

2 

Constants for heading print - program tape 

35 

00 

XX16 

4 

Constant, for delete 

print 

36 

77 

77777 

70701 

t % t % 4 A 

37 

77 

77777 

70601 

t i t t 3 a 


40 

0 

XX 

2 




CA 

CX41 
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Constant s 


0 

IA 

00 

CN 

0 

1 

Constants 

1 

00 

0 

2 


2 

00 

0 

3 


3 

00 

0 

4 


4 

00 

0 

5 


5 

00 

0 

24 


6 

77 

0 

0 


7 

00 

0 

14 

To set buffer index 1st groi 

10 

00 

0 

15 

To set buffer index all oth' 

11 

00 

0 

3220 

Increment for drum transfer 

12 

00 

24 

0 


13 

00 

1 

0 


14 

00 

2 

0 


15 

00 

7 

70000 


16 

00 

1 

1 


17 

77 

[30000] 

00024 


20 

00 

DTI 

DT 


21 

00 

0 

23 


22 

00 

0 

IB 


23 

00 

0 

TB1 


24 

00 

0 

BUI 70 


25 

00 

0 

BU171 


26 

00 

CB 

CB 


27 

00 

2 

2 


30 

00 

0 

30000 

Sequence indicator 

31 

00 

4 

4 


32 

00 

36 

0 


33 

75 

30036 

SR6 


34 

00 

4 

0 


35 

00 

0 

10 


36 

00 

0 

7 


37 

00 

0 

6 


40 

00 

0 

FT21 


41 

TV 

PB4 

TM14 


42 

00 

BJ12 

MN32 


43 

00 

0 

[30000] 

Total no. of items 

44 

00 

0 

[30000] 

Number of storage locations 

45 

00 

0 

[30000] 

Number of in sequence items 

46 

TP 

IB 

A 


47 

00 

0 

17 


50 

37 

77777 

77777 


51 

00 

0 

30000 


52 

00 

0 

0 


53 

00 

0 

BU12 


54 

00 

0 

BU 
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55 

01 

51676 

60151 ( 

XS3 codes for 

56 

31 

01653 

05367 > 

> OUT OF SEQUENCE 

57 

30 

50263 

02277 J 


60 

EW 

10000 

GR 


61 

00 

0 

11 


62 

00 

0 

51 



CA 

CN63 




282 



Line-Number Processor 



IA 

LN 


0 

MJ 

0 

LN5 

1 

MJ 

0 

LN7 

2 

MJ 

0 

30000 

3 

00 

30000 

30000 

4 

00 

30000 

30000 

5 

TV 

RC14 

PA1 

6 

MJ 

0 

DRO 

7 

TV 

RC15 

PA1 

10 

MJ 

0 

DR 

11 

TP 

LN4 

LN3 

12 

MJ 

0 

LN2 


CA 

LN13 



IA 

DR 


0 

TV 

RC6 

MR27 

1 

TV 

DR 

DR 15 

2 

RJ 

MR 12 

MR12 

3 

RJ 

MR43 

MR43 

4 

TP 

UC23 

LN3 

5 

TP 

UC4 

WS3 

6 

TP 

LN4 

WS 

7 

TV 

RC10 

MR 3 

10 

TV 

RC13 

MR 4 

11 

TV 

RC12 

MR 5 

12 

TV 

RC11 

MR 7 

13 

TV 

RC1 

MR 16 

14 

IJ 

WS3 

MR 

15 

RJ 

DR 15 

30000 

16 

TP 

LN3 

A 

17 

EJ 

UC23 

SV14 

20 

EJ 

UC24 

SV14 

21 

MJ 

0 

LN2 


CA 

DR 22 



IA 

MR 


0 

LQ 

WS 

6 

1 

QT 

UC20 

A 

2 

RP 

20004 

MR4 

3 

EJ 

UC14 

30000 

4 

EJ 

UC13 

30000 

5 

EJ 

UC1 

30000 

6 

RP 

20011 

SV6 

7 

EJ 

UC2 

30000 

10 

TV 

RC 

MR 16 

11 

TV 

RC2 

MR 3 


The remaining coding is a modified version 
of the Line-number Processor used in the 
translation phase. Instructions which have 
been changed are noted below. Explanation 
and annotation for non-changed instructions 
are to be found in Section III, 3, A - 
Translation Subroutines. 


Exit to store line number and type of 
error for later print out 
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12 

RJ 

MR 12 

MR 13 

13 

RJ 

MR 12 

MR22 

14 

RJ 

MR 12 

MR22 

15 

MJ 

0 

MR24 

16 

MJ 

0 

30000 

1 -7 

X 1 

c ^ 
on 

LN3 

6 

20 

TP 

A 

LN3 

21 

MJ 

0 

30000 

22 

RJ 

MR21 

MR 16 

23 

MJ 

0 

DR 14 

24 

TV 

RC3 

MR 5 

25 

TV 

RC3 

MR 7 

26 

RJ 

MR21 

MR 16 

27 

RJ 

MR27 

30000 

30 

MJ 

0 

DR14 

•31 

CD 

r mo 

r\ 

OX 

OL 

LjIXO 

U 

32 

SA 

UC13 

6 

33 

SA 

UC14 

6 

34 

AT 

UC14 

LN3 

35 

MJ 

0 

DR14 

36 

TV 

RC2 

MR 3 

37 

TV 

RC5 

MR 4 

40 

TV 

RC7 

MR 5 

41 

TV 

RC7 

MR 7 

42 

MJ 

0 

MR27 

43 

RJ 

MR43 

MR 44 

44 

RJ 

MR43 

MR46 

45 

MJ 

0 

MR60 

46 

EJ 

UC1 

MR 55 

47 

LA 

A 

6 

50 

TP 

UC21 

Q 

51 

QS 

A 

LN3 

52 

TP 

UC 

WS1 

53 

TP 

UC20 

WS2 

54 

MJ 

0 

DR 14 

55 

LT 

10006 

WS1 

56 

TP 

UC22 

WS2 

57 

MJ 

0 

DR 14 

60 

TV 

RC4 

MR 5 

61 

TV 

RC4 

MR 7 

62 

EJ 

UC1 

DR 14 

63 

AT 

WS1 

WS1 

64 

TP 

WS2 

Q 

65 

QS 

WS1 

LN3 

66 

MJ 

0 

DR14 

67 

TV 

RC10 

MR 3 

70 

TV 

RC5 

MR 4 

71 

TV 

RC5 

MR 5 

72 

TV 

RC5 

MR 7 

73 

MJ 

0 

DR 14 


CA 

MR 74 
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IA 

RC 


0 

0 

0 

MR 17 

1 

0 

0 

MR21 

2 

0 

0 

MR67 

3 

0 

0 

SV10 — 

4 

0 

0 

SV12 — 

5 

0 

0 

SV14 — 

6 

0 

0 

MR31 

7 

0 

0 

MR43 

10 

0 

0 

DR 14 

11 

0 

0 

MR 10 

12 

0 

0 

MR 11 

13 

0 

0 

MR 36 

14 

0 

0 

PA 3 

15 

0 

0 

PA 5 


CA 

RC16 



IA 

UC 


0 

0 

0 

0 

1 

0 

0 

3 

2 

0 

0 

4 

3 

0 

0 

5 

4 

0 

0 

6 

5 

0 

0 

7 

6 

0 

0 

10 

7 

0 

0 

11 

10 

0 

0 

12 

11 

0 

0 

13 

12 

0 

0 

14 

13 

0 

0 

22 

14 

0 

0 

1 

15 

0 

0 

77 

16 

0 

0 

17 

17 

0 

0 

43 

20 

0 

0 

77 

21 

0 

0 

7700 

22 

0 

0 

7777 

23 

1 

1010 

10100 

24 

1 

1012 

20101 


CA 

UC25 



IA 

WS 


0 

0 

30000 

30000 

1 

0 

30000 

30000 

2 

0 

30000 

30000 

3 

0 

30000 

30000 


CA 

WS4 



Used to set error exits so that line number 
and type of error will be stored for later 
print out 
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Out to print sentence type 



IA 

PA 


0 

MJ 

0 

PA1 

1 

MJ 

0 

0 

2 

MJ 

0 

0 

3 

RJ 

SV60 

SV56 

4 

MJ 

0 

PA 2 

5 

TP 

LN4 

CDS 

6 

TP 

CD 

UP3 

7 

RJ 

UP2 

UP 

10 

MJ 

0 

PA 2 

11 

RJ 

PA 2 

PA 

12 

TP 

LN4 

CD15 

13 

TP 

CD5 

UP3 

14 

RJ 

UP2 

UP 

15 

MJ 

0 

LN11 

16 

RJ 

PA 2 

PA 

17 

TP 

LN4 

CD27 

20 

TP 

CD17 

UP3 

21 

RJ 

UP2 

UP 

22 

MJ 

0 

LN11 

23 

RJ 

PA 2 

PA 

24 

TP 

LN4 

CD42 

25 

TP 

CD31 

UP3 

26 

RJ 

UP2 

UP 

27 

MJ 

0 

LN11 

30 

RJ 

PA 2 

PA 

31 

TP 

LN4 

CD54 

32 

TP 

CD44 

UP3 

33 

RJ 

UP2 

UP 

34 

MJ 

0 

LN11 


CA 

PA 35 



IA 

CD 


0 

00 

CD1 

4 

1 

65 

30506 

63050 

2 

26 

30010 

17777 

3 

01 

01010 

10101 

4 

01 

01017 

77777 

5 

40 

CD6 

11 

6 

34 

46463 

03224 

7 

46 

01263 

32454 

10 

24 

26663 

05401 

11 

34 

50016 

53050 

12 

66 

30502 

63001 

13 

50 

67472 

53054 

14 

01 

77777 

77717 

15 

01 

01010 

10101 

16 

43 

77777 

77777 

17 

40 

CD20 

11 

20 

30 

72665 

42401 

21 

34 

50663 

03254 

22 

24 

46012 

73432 

23 

34 

66650 

13450 
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24 

01 

65305 

06630 

25 

50 

26300 

15067 

26 

47 

25305 

40117 

27 

01 

01010 

10101 

30 

43 

77777 

77777 

31 

40 

CD32 

12 

32 

30 

72665 

42401 

33 

31 

54242 

66634 

34 

51 

50244 

60127 

35 

34 

32346 

66501 

36 

34 

50016 

53050 

37 

66 

30502 

63001 

40 

50 

67472 

53054 

41 

01 

77777 

77717 

42 

01 

01010 

10101 

43 

43 

77777 

77777 

44 

40 

CD45 

11 

45 

34 

46463 

03224 

46 

46 

01653 

05367 

47 

30 

50263 

00134 

50 

50 

01653 

05066 

51 

30 

50263 

00150 

52 

67 

47253 

05401 

53 

17 

77777 

77777 

54 

01 

01010 

10101 

55 

43 

77777 

77777 


CA 

CD56 
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3. TRANSLATION PHASE 



3. Translation Phase 


a. Translation Subroutines 
(1) Abbreviations Used 

WL - Translation List (output of translators) 

FXX - (where XX is a decimal number) An error number 
CB - Combination List 
BF - Read in Buffer 
CW - Call word 

DP - List of Pseudo Operation Dummies 
VL - Vary List 
VF - Vary File 
FC - Flex Codes 

IZ - List of Referenced Line Numbers 
CL - Constant Pool 
VB - ''j 

VD - > Variable or Temporary Regions 

TF - J 

XS3 - Excess Three Code 

SS - Subscripts or Subscripted 

Line - Sentence 

String Out - Translation or Translation List 
S.O. - Translation 
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(2) General Description 

This phase of UNICODE reads the UNICODE Program sentences from tape 5, 
assigns call words to symbols, and detects errors in the program. The output 
is a list made up in region WL for each sentence. When the space period (A.) 
symbol is encountered, the list in region WL is written on tape 6 (3) to become 
the input to the generation phase for the sentence translated. This process 
continues until END OF TAPE is encountered and translated. 

The translation subroutines remain in the core and a translator for the 
type of sentence encountered is transferred from the drum and referenced by 
translation control (CT) which acts as a switch. Most translators are trans¬ 
ferred into core addresses 4400 to 4400 + Nj where Nj is the length of the 
translator. The equation and LIST translators are transferred into 4000-4000 + 
Nj, the IF into 4566 to 4566 + Ni, and the JUMP into 4700 to 4700 + Nj. 

Each translator uses as many of the translation subroutines as necessary 
to make up the translation list (WL). There is no standard format for the 
translation list with the exception of the heading (WL-WL3). The heading format 
is described in the format of lists section. 
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(3) Core During Translation (Not all regions mentioned) 


Name 

Region 

Addresses 

1 . 

Indicates 5 or 7 servos 

TN 

20 


5 servos - TN = 0 




7 servos - TN = 0 3 0 



2. 

Tape Handler 

1H 

21-420 



GT 


3. 

Print Text 

UP 

421-536 

4* 

Print Error Heading 

WA 

537-562 

5. 

Build Symbol 

WB 

563-602 



BS 

603-627 

6. 

Translation Control 

CT 

714-751 

7. 

Delete Spaces 

DS 

1001-1007 

8. 

Send Call Word to Translation List 

EW 

1010-1031 

9. 

Fill Symbol (with 77 codes) 

FS 

1032-1060 

10. 

Switch List (used by control) 

FW 

1061-1117 

11. 

Convert Constant to Floating Point 

GG 

1134-1323 

12. 

Get Next Character 

GN 

1324-1376 

13. 

Get Next Sentence 

GS 

1377-1456 

14. 

Assign Constant Call Word 

GW 

1457-1474 

15. 

Send Referenced Sentence Number to List 

IX 

1552-1621 

16. 

Check and Standardize Sentence Number 

LN 

2037-2145 

17. 

Set TN for 5 or 7 servos 

OT 

2146-2155 

18. 

Send Sentence Call Word to Reference List 

RA 

2156-2171 

19. 

Check Floating Point Constant 

RB 

2172-2220 

20. 

Check Fixed Point Constant 

RD 

2237-2264 

21. 

Check Variable Type Symbol 

RH 

2265-2315 

22. 

Get Rest of Lower Symbol 

RL 

2316-2347 

23. 

Decimal to Octal Conversion 

RS 

2350-2424 

24. 

Get Rest of Superscript Symbol 

RU 

2425-2443 

25. 

Rewind all Tapes 

RW 

2444-2465 

26. 

Get Next Symbol 

SY 

2466-2545 

27. 

Get File From Combination List 

TA 

2546-2653 

28. 

Send File Back to CB List 

TD 

2654-2662 

29. 

Add File to CB List 

TE 

2663-2741 

30. 

Increase 66, 65, 64 Call Word Counter 

TK 

2742-2761 

31. 

Get C.W. from Dummy Pseudo Op. List 

TS 

2762-3004 

32. 

Setup Translation Tape 

UB 

3013-3032 

33. 

Error Routine 

UZ 

3065-3110 

34. 

Close Vary File 

VE 

3122-3202 

35. 

Send Translation List to Tape 

SS 

3207-3224 



WT 


36. 

Increase 26, 27, 22 Sentence Number 

XJ 

3225-3245 


Call Word Counter 



37. 

Read Buffer 

BF 

3317-3506 

38. 

Translation List 

WL 

3507-3757 



VN 


39. 

Operating Area for Translators 

OR 

4000-7777 
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(4) Drum During Translation 


Name 

Region 

Addresses 

i. 

Flex Codes 


FC 

40001-40100 

2* 

oumbi ndc ion Lii st • Dimension Li si and List 

PR 

V JLJ 

40101-46100 


of Library Routines, Pseudo operations and 




Variables 




3. 

Constant Pool 


CL 

46101-47100 

4. 

Vary File 


VF 

47101-47245 

5. 

Referenced Line Numbers 


IZ 

47246-47721 

6. 

Pseudo Op Sentence Call Words of 2nd Sentences 

JN 

47722-50022 

7. 

Rewind List of Referenced Tape Numbers 

WR 

50023-50045 

8. 

List of Pseudo Operation Dummies 


DP 

50046-50177 

9. 

Vary List: Variables which cannot be altered 




i lrt A IT AD V 

-L1A i anyc vrx v rui i t 


VL 

50200-50332 

10. 

Error Texts (Translation Subroutines) 

FA 

50333-50406 




FB 

50407-50446 




FD 

50447-50512 




FE 

50513-50544 




FF 

50545-50574 




FG 

50575-50623 




FH 

50624-50672 




FI 

50673-50721 




NO 

50722-50751 




PA 

50752-51006 




CD 

51007-51074 


Translators 

Locations 





Transferred 



11. 

COMPUTE 

22538 


51075-53347 

12. 

READ 

223 8 


53350-53572 

13. 

TYPE 

1220 8 

TL 

53573-55012 

14. 

LIST 

37530 

LM 

55013-60765 

15. 

PRINT 

2500 

PS 

60766-61235 

16. 

IF 

2423 8 

KP 

61236-63660 

17. 

VARY 

24440 

VY 

63661-66324 

18. 

RESUME 

67 8 

RV 

66325-66413 

19. 

JUMP 

1448 

SJ 

66414-66557 

20. 

STOP 

300 

SP 

66560-66607 

21. 

END OF TAPE 

225 0 

EU 

66610-67034 

22. 

EXIT 

52 8 

EZ 

67035-67106 

23. 

START 

450 

ST 

67107-67153 

24. 

Equation 

36630 

YA 

67154-74527 

25. 

Pseudo Operation Heading 

1050 8 

HE 

74530-75600 

26. 

Remainder of drum is service routines 

__ .... . i 
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(5) Error Texts of Translation Subroutines 

FI Sentence - - - - before START, begins with a key word (VARY, LIST, etc.). 
Rest of this sentence not checked. 

F2 Sentence - - - - First symbol, - - - -, does not indicate legal UNICODE 
sentence. Rest of this sentence not checked. 

F3 More than five errors. Rest of this sentence not checked. 

F4 More than 25 errors this program. Reread specifications. Program not 
checked beyond sentence - - - 

F5 More than 512 lines in this program. 513th sentence number is - - - 

F6 Number of unsubscripted variables plus functions is greater than 512. 

513th symbol is - - - Working on sentence - - - 

F7 More than 12 characters in floating point constant. (Const.) 

F8 More than one decimal point in constant. (Const.) 

F9 Assumed constant contains a letter. (Const.) 

F10 More than six characters in fixed point constant. (Const.) 

Fll A decimal point in a fixed point constant. (Const.) 

F12 More than six characters in variable type symbol, (sym.) 

F13 Variable type symbol contains a point, (sym.) 

F14 No sentence number on sentence following 

F15 List of variables, Library routines, functions and pseudo operations 
has become too long. Working on sentence_. 

F16 Too many symbols. 

F17 No end of sentence symbol. 

F18 Incorrect symbol sequence. --AA- 

F19 Key word, used as variable. 
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(6) List Formats 

(a) Combination List (CB) 40101-46100 

This list consists of an item for each variable, library routine, and 
pseudo operation. The order in which these items appear in the list is as 
follows: 

1) Subscripted Variables, if any (Dimension List) 

2) Library Routines 

3) Unsubscripted Variables (Floating & Fixed Point) Functions and 
Pseudo Operations in the order in which they appear in the program. 

Op u v 

Address CB = q 2(N) 0 where N = the number of words in the CB 

list not including CB, N is increased each time an item is added to the CB list. 

The items have somewhat different formats so each will be described. 
Parentheses indicate the extent of the word used. 

1. Subscripted Variable 



D = The first drum address of this variable in the object program. 

S = The XS3 code for the symbol. 

CW = The call word (77xxx) 

Z = An octal digit with binary representation Z^ZgZ^ 

Zj = 1 the variable is defined by an equation before START 

Z 2 = 1 the variable is defined by an equation 

Zg = 1 the variable appears in a READ sentence 

M = The modulus (the total number of words of storage needed by this 
variable in the object program). 

N = The number of subscripts. 

m^, n^, m^ - multipliers used in the manipulation of subscripts 
m^ = product of rightmost n-1 dimensions 
mg = product of rightmost n-2 dimensions 
nig = rightmost dimension 
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2. Pseudo Operation 

Op u v 

function 

S = the XS3 code for the symbol 

CW = the call word (4XXYY where YY = the number of operands; XX = pseudo 
operation number.) 

F^, Y^, etc. = Operand formats which read from right to left with the following 
codes: 

1 - Floating point operand 

2 - Fixed point operand 

3 - Function 

4 - Subscripted variables 

For example, the function F (X, Y(I)) would have format: 413. 

The subscripted variable U(I, J, K, L) would have format: 4 
The variable R would have format: 1. 

The constant 3.49 would have format: 1. 

The constant 75 would have format: 2. (a constant with a decimal point is 
floating point, one without is fixed point.) 

N = number of commas for a function. 

N = number of subscripts for a subscripted variable. 

N = 0 for other operands. 

Z is the same as Z described under the subscripted variable. 

3. Function 



S = XS3 code of symbol 
CW = Call word (66XXX) 
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F = Format as described under Pseudo Operation item. 
Z = Same as Z described under subscripted variable. 
N = The number of commas. 

4. Floating Point or Fixed Point Variable 
Op_u_v_ 



( 

s 

) 


0 0 

0 0 0 0 0 

( CW ) 


0 Z 

0 0 0 0 0 

0 0 0 0 0 

S = XS3 code of 

symbol 



CW = Call word (65XXX for floating point, 64XXX for fixed) 
Z is described under subscripted variable item. 

5. Library Routine 


Op 

u 

V 

( 

s 

) 

0 0 

1 0 0 0 0 0 

1 ( CW ) 


S = XS3 code of symbol 

CW = Call word (5XXXY where Y = number of operands, 

XXX = routine number.) 

(b) Pseudo Operation Dummy List (DP) 

50046-50177 

This list is made up by the pseudo operation heading translator. The 
entire list is searched for a symbol even if the list is not full since it is 
short (132g). The list is cleared before adding the first symbol. The items 
in the list are as follows: 

1. Subscripted Variable 


Op 

u 

V 

( 

s 

) 

0 0 

0 0 0 0 0 

7 6 Y X X 


S = XS3 code of dummy symbol 

76YXX = dummy call word (Y = number of subscripts, 

XX = variable number.) 
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2. Function 


Op 

u 

V 

( 

s 

) 

0 0 

0 0 0 0 0 

6 1 X X X 

0 z 

N 0 0 0 0 

F 


S, Z, N, F = same as described under Pseudo operation in combination list. 
6 1 X X X = Call word. 


3. Floating Point or Fixed Point Variable 


Op 

u 

V 

( 

s 

) 


1 

6 3 X X X 


S = XS3 of dummy symbol 

63XXX = Call word (the same for both floating or fixed point) 


(c) Translation List (WL) 

WL - Number of words (includes word WL) in translation list £ 250g. 

WL1 = Standardized sentence number. This is of the form: 


X 1 X 2 X 3 


X 4 X 5 


where X^ is the XS3 code for a decimal digit or XS3 for a space (01). The XS3 
for the point (22) always appears. Spaces will not separate digits or a digit 
and the point. 

WL2 = the sentence type (READ, LIST, DIMENS, etc.) in XS3 code. Only the 
first six codes appear for words of more than six characters and for words of 
less than six characters. WL2 is filled on the right with 77 codes. There are 
two special cases, the equation and the pseudo operation heading. For the 
equation: 

WL2 = EQUATN (XS3) - Before START 

WL2 = EQUATI (XS3) - After START 
For the pseudo operation heading: 

WL2 = The XS3 codes for the symbol which represents the pseudo operation. 

WL3 = Sentence call word in v address. 

2 2 X X X - Sentence within pseudo operation 

2 3 0 0 0 - END OF TAPE sentence 

2 4 X X X - Equation for S.S. variable (before START) 
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2 5 X X X - Equation for other variables (before START) 

2 6 X X X - VARY sentence (not in pseudo op.) 

2 7 X X X - Sentence (other than VARY) START or after, 
where X is an octal digit. 

The rest of the translation list is not standard but depends on the partic¬ 
ular translator. 


(d) Referenced Sentence Numbers (IZ) 47246-47721 


Op 

U 

V 

( 

s 

) 

0 0 

1 0 0 0 0 0 

J_1 

( CW ) 


S = Standardized Sentence Number 
CW = Sentence call word (26XXX, 27XXX or 22XXX) 

(e) VARY (Variable) List (VL) 50200-50332 



Op 

u 

V 

VL 

0 0 

I VLX 

| VLX 

VL 1 

( 

S 1 

) 

v h> 

( 

S 2 

) 

1 

l 

1 

( 

- c n 

CO 

) 

1 

1 

1 

( 

1 

Vi 

) 

VLX 





VLX = Next available address in list 

S lt S 2f etc. = XS3 code for symbols which cannot be altered within range 
of a VARY sentence. 

(f) VARY File (VF) 47101-47245 



Op 

u 

V 

VF 

0 0 

2 ( N ) 

( M ) 


( 

s 

) 


Y Z 

( CWj ) 

( CW 2 ) 


an item of file 


M = Number of words down to first 22XXX VARY sentence, if any. 

N = Number of words in file not including VF 

S = Standardized sentence number of last sentence in range of VARY. 


300 







CW^ = Call word of sentence jumped to or resumed at end of VARY loop (27XXX, 
26XXX or 22XXX) 

CW^ = Call word of the VARY sentence (26XXX or 22XXX) 

Z (4 bits)= Count of number of "with" words. 

Y (2 bits) = Y^.Y^ where: 

Y = 1 Indicates closed out or completed item. 

Y^= 0 Item not closed out or completed. 

T£)= 0 Normal jump 

Y 2 = 1 Resume jump (either stated or implied) 

(g) Rewind List of Referenced Tape Numbers (WR) 

50023-50045 



Op 

u 

V 

WR 

0 0 

2 ( N ) 

0 ( N ) 

WR1 

0 0 

CWj 

0 0 0 0 0 

etc. 

0 0 

CW 2 

0 0 0 0 0 


N = Number of words in list not including WR, CWp (^L,, etc. = Call words of 
tape numbers (67XXX or 64XXX) 

This list is used by the STOP object program so the machine operator may 
rewind input and output tapes from the console. 

(h) List of Second Sentences of Pseudo Operations (JN) 47722-50022 



Op 

u 

V 

JN 

0 0 

2 ( N ) 

00000 


0 0 

( cw x ) 

00000 


0 0 

( cw 2 ) 

00000 


N = Number of words in list not including JN. 

CWj, CW 2 , etc. = Call words of Sentence numbers of second sentences of 
pseudo operations. 

This list is used in generation to check for illegal jumps from one pseudo 
operation to another. 

(i) Constant Pool for Object Program (CL) 46101-47100 

This is a list of the constants both floating point and fixed point, one 
constant per word. 
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address 10 =00 2 ( N ) 0 ( N ) 

N = Number of constants in list CL. 

The constants are assigned call words according to their position in the 
list, i.e., the constant in CL has call word 67000, in CL1 67001 and so forth. 

(j) Key Words of UNICODE (Region KB - 1664-1722) 

The following words cannot be used as variables in UNICODE. (See region 
KB of coding.) 


DIMENS 

JUMP 

START 

STOP 

VARY 

END 

COMPUT 

EXIT 

READ 

POW 

LIST 

NOT 

TYPE 

TAPE 

PRINT 

WITH 

IF 

THEN 

RESUME 

AND 


(7) Descriptions of Translation Subroutines 
(a) Translation Control (CT) 

This routine gets the next sentence (GS), gets the first 
symbol of the sentence (SY), sets up the translation list (WL) heading, 
transfers the proper translator to the core (depending on the first symbol of 
the sentence), and jumps to this translator. 

After the translator has completed building list WL and found the space 
period ( A.) of the sentence it writes WL on tape by referencing routine SS. 
Then it jumps back to translation control (CT). 
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Sometimes a translator will find a sentence so full of errors that it is a 
waste of time to continue checking it. Then the translator will jump to control 
(CT) before finding the A. symbol. Translation control will pick up symbols 
until a A. appears in SY2. 

This routine is not written as a subroutine and is referenced by: 

MJ 0 CT 

(b) Get Next Sentence (GS) 

This routine sets the Get Next Character (GN) routine to pick up the first 
character of the next sentence, standardizes the sentence number, reads tape if 
necessary, and sets up the first two words of the translation heading. It is 
referenced by the instruction. 

RJ GS GS1 

If the sentence number word is all Z's it sets up the entire translation 
list for ENDAOFATAPE , and goes directly to the end of tape translator. 

If the sentence number word is all spaces it checks the entire sentence and if 
all spaces proceed to the next sentence. If the entire sentence is not all 

spaces it prints NO SENTENCE NUMBER ON SENTENCE FOLLOWING -. (Error 

F14). 

It also clears the indicator of previous print-out in routine EW. 

(c) Get Next Character (GN) 

This routine picks up the next character from the raw input, read into BF, 
of the corrected problem tape and places the character in the rightmost six bits 
of A and GN4. It is referenced by the return jump. 

RJ GN GN1 

The first time the routine is used, the address where the character is 
located must be put in both the u and v addresses of GN2, and a shift count 
in GN3. To explain the shift count, consider the characters of a word to be 
numbered from 1 to 6 left to right. To obtain the first character at the address 
in GN2, set the shift equal to zero and perform RJ GNO GN1. But to obtain the 
second character, first left shift word in address at GN2 by 6, and set shift 
count equal to 6, then perform the return jump. The following table gives 
all cases: 
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Character 

Number 

No. of Places to shift 
word at address 
put in GN2 

Set shift count 
in GN3 eaual to 

1 

0 

0 

2 

6 

6 

3 

14 8 

J— 1 

CD 

4 

22 8 

22 0 

5 

CO 

3 

CO 

o 

CO 

6 

36 8 

36 8 


References after the first are by the return jump only since the routine 
automatically sets itself for successive characters. 

C d) Get Next Symbol (SY) 

To pick up the next symbol from the raw data, the instruction is used. 

RJ SY SY1 

In picking up the symbol, the routine ignores spaces until a significant 
character is encountered, then characters are assembled into a symbol until a 
symbol separator character is encountered. The following characters are 


separators: 




1. 

A 

9. 

Any lower case character when 

building a 

2. 

f 


superscript symbol. 




10. 

Any superscript character when 

building a 

* 

• 


lower case symbol. 


4. 

( 

11. 

/ 


5. 

) 

12. 

superscript - 


6. 

+ 

13. 

superscript / 


7. 

- 

14. 

= 


8 

*5' 






15. 

1 




16. 

> 




17. 

< 



All of these characters, except 1, 9, and 10 are symbols by themselves. 
Following is a list of all symbols: 

1. A. 5. ) 

2 . , 6 . + 

3. ; 7. - 

4 . ( 8 . * 


304 



9. 

/ 

14. 

> 

10. 

superscript - 

15. 

< 

11. 

superscript / 

16. 

Variable Type Symbol 

12. 

- 

17. 

Constant 

13. 

1 

18. 

Superscript Constant 


A symbol of type 16, 17, or 18 may contain any number of characters, but 
the routine will save only the first 18 of these in SY2 - SY4. All symbols are 
stored with characters packed to the left, and unused spaces in SY2 - SY4 are 
filled with 77 codes. For example, if the symbol were XYZ, SY2 - SY4 would be 



Op 

u 

V 

SY2 

X 

Y Z 7 

77777 

SY3 

77 

77 77 7 

77777 

SY4 

77 

77 77 7 

77777 


SY2 is sent to A before exiting. The rest of the outputs are: 
SY5 = Number of characters 
SY6 = Number of decimal points 


SY7 = Indicator 
SY10 = Indicator 
SY11 = Indicator 
SY12 = Indicator 
SY13 = Indicator 
SY14 = Indicator 


1st character a letter 
1st character I, J, K, L or 1 
1st character decimal point or digit 
symbol contains a letter 
symbol is superscript 
space was separator 

where the indicator is 40 in operation portion of word if condition on right of 
semicolon is satisfied. 

This routine uses the Get Next'Character, Build Symbol, Fill Symbol, Get 
Rest of Lower Symbol, Get Rest of Upper Symbol, and Delete Spaces routines as 
subroutines. 


(e) Get Rest of Lower Symbol (RL) 

This routine builds the symbol in SY2-SY4 until a separator for a lower 
case symbol is encountered. Reference: 


RJ RL RLl 

(f) Get Rest of Superscript Symbol (RU) 

This routine builds the symbol in SY2-SY4 until a separator for a superscript 
symbol is encountered. Reference: 

RJ RU RU1 
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(g) Build Symbol (BS) 

This routine adds the last character picked up by the Get Next Character 
(GN) routine to the symbol in SY2-SY4. Reference: 

RJ BS BSl 

(h) Fill Symbol (FS) 

This routine fills the symbol in SY2-SY4 on the right with 77 codes. 
Reference: 

RJ FS FS1 

(i) Delete Spaces (DS) 

This routine picks up characters until a character other than a space is 
encountered. It sets the indicator in SY14 if a space is encountered so the 
Get Next Symbol routine (SY) will recognize the A. combination. Reference: 

RJ DS DS1 

(j) Send File Back to Combination List (TD) 

This routine returns the file of a variable to the CB list when it has 
been picked out of the CB list by the Get File from CB List (TA) routine. The 
file is located at TA2 up to TA31. The exact number of words in the file is in 
the u address of TA47. The routine is necessary since a file may be altered 
after adding it to the list. 

(k) Add file to CB List (TE) 

The file of a variable is built in TF up to TF27 with the exact number of 

words in both addresses of TF. When the file is complete this routine is 

referenced and the file is added to the CB list. 

(l) Get File from CB List (TA) 

The file of the variable in SY2 is picked up from the CB list and placed 
in TA2-TA31 by this routine if the file is in the CB list. If RJ TA TAl is at 

address Y, then the exit is to Y + 1 if the file is not in the list. If the 

file is in the list, the exit is to Y + 2. 

(m) Get Call Word from Pseudo Operation Dummy List (TS) 

The pseudo operation heading translator makes up a list of dummy variables 
in region DP. The list consists of the XS3 and the dummy call word of each vari 
able which appears in the heading. This routine searches the list for the 
variable in SY2 and if it is in the list the output is as follows: 
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TS2 = XS3 of symbol 

TS3 = Call word in v address 

If RJ TS TS1 is at address Y, then the exit is as follows: 

Y + 1, if variable is not in list. 

Y + 2, if variable is in list. 

(n) Send Call Word to Translation List (EW) 

This routine transfers the contents of EW2 to the next available location 
in the translation list (region WL). The word to go into the translation list 
is sent to EW2; then the instruction RJ EW EW1 is executed. 

(o) Increase 66XXX, 65XXX. 64XXX Call Word Counter (TK) 

This routine is referenced before assigning a variable a 66, 65 or 64 
type call word. The counter is in VB1 and is less than or equal to 777g. The 

counter is left in A and VB1 so that 66000, 65000, or 64000 may be added to it 

to obtain the proper call word. Reference the routine with RJ TK TK1. 

(p) Increase Sentence Call Word Counter for 26XXX, 27XXX, or 22XXX Type Call 

Words (XJ) 

This routine is exactly like TK (above) except that the counter is in VB4 
and A. Reference is by RJ XJ XJ1. 

(q) Print Error Heading (WA) 

This routine prints the following on the typewriter; 

SENTENCE A A X AA A(Y) A A 

where: X = sentence number from WL1 (1-6 characters), 

Y = type of sentence (IF, COMPUTE, etc.). First six characters 

from WL2 if more than six, otherwise all characters from WL2. 

Reference the routine as follows: 

RJ WA WAl If it is desired that the error routine (UZ) be 
referenced. 

RJ WA WA2 If the error routine (UZ) is not to be referenced. 

(r) Error Routine (UZ) 

This routine should be referenced before each error print out. It will 
add up the number of errors and when a maximum of 25 has been exceeded, it 
will print F4, rewind all tapes, and stop the computer. 

After five errors in a single sentence F3 is printed, the rest of the 
sentence is skipped and error checking on following sentences begins. 

The Error Routine is referenced by the following instruction: 

RJ UZ UZ1 
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The sum of the errors per program is kept in UZ2, the number of errors 
per sentence in UZ3. 

(s) Check Floating Point Constant (RB) 

This routine uses the indicators in SY5-SY13 to check the constant for 
errors F8, F9 and F7. 

(t) Check Fixed Point Constant (RD) 

This routine uses the indicators in SY5-SY13 to check the constant for 
errors F9, FlO, and Fll. 

(u) Print Text (UP) 

Send the parameter to UP3 and perform the instruction: 

RJ UP2 UP 
The parameter is of the form: 

Op u v 
OP X N 

where X = address of the first word of six XS3 characters and N is the number 
of words in octal to be printed. If OP = 00, the following will precede print¬ 
ing: 

1) Set to print 80.^ characters this line. 

2) Set to print spaces. 

3) Print 4 carriage returns. 

If OP = 40, printing will continue where left off. 

When 80 ^q characters have been printed and N is not exhausted, Print Text 
will suppress spaces until a character other than space is encountered. If 
this character is a 77 code, this routine will pick up characters until a code 
other than 77 is encountered. If N is not exhausted by 77 codes or suppressed 
spaces, it will: 

1) Print two carriage returns. 

2) Print 19^ spaces. 

3) Set to print 61 ^q more characters this line. 

4) Print the character. 

If one wishes more indentation than 19 spaces, place a 77 code before the desired 
number of spaces to be printed in excess of 19. 

If N = 0 and OP = 00, four carriage returns will be printed before the exit. 
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X can not be A or Q. If X is an illegal address, an SCC fault will occur. 

The character count is in UW21. It is counted down. 

The routine assumes a manual jump instruction is at address 0. 

The routine leaves the Flexowriter in the upper case position. 

The XS3 character > is printed "gtr" and < is printed "lsr" but the Print 
Text routine only counts each as one character, when actually three are printed. 
Hence, if too many of these symbols appear in one line of printing, the character 
count of 80 will not be reached before printing runs off the right side of the 
paper. The alternative is to make the user of Print Text count three characters 
instead of one for > and < . 

(v) Put Call Word in List of Referenced Sentence Numbers (RA) 

This routine searches the list (IZ) for the sentence number in WL1 and 
if it is in the list, the call word of the sentence which is in WL3 is put in 
the list following the sentence number. 

The sentence numbers are put in the list when encountered by the VARY, 

JUMP, IF^ READ and RESUME translators. 

(w) Translation Set-Up Subroutines (OT and UB) 

When seven Uniservos are to be used for UNICODE, the MJ1 switch should be 
set. When only five Uniservos are used, this switch should not be set. 

Routine OT puts 0 3 0 in TN if the MJ1 switch is set. Otherwise TN is 

cleared. Parameters for the generalized tape handler are prepared initially 
for the five-Uniservo layout. If the same Uniservo is used by a routine, 

whether there are five or seven Uniservos available, no alteration is made on 

the parameter. If a different Uniservo is used in these two situations, addition 
of TN to the parameter will ensure selection of the proper Uniservo. This is 
true because when a different Uniservo is used with seven Uniservos available, 
there is a constant difference of 3 between the logical numbers of the two 
Uniservos involved. 

Routine UB puts the proper parameter word in WT, the Tape Write routine, 
depending upon the assigned value to TN. Also this routine writes the title 
block of the string-out tape: 20 words of Z's; the title, String-Outs; and 
the balance of the block in Z's. 
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RJ OT OT1 and RJ UB UB1 are the instructions needed for these set-up sub¬ 
routines. 

(x) Write Translation List on Tape (WT or SS) 

Instruction RJ WT WT1 will cause a completed strinq-out to be written on 
tape if no errors have been recorded in UZ2 previously. A quick exit with no 
tape action results when the Error routine has been referenced. 

The routine divides the number of lines by 170g to determine the number 
of blocks to be written and sets up the proper parameter for use in referencing 
the generalized tape handler. 

(y) Put Referenced Sentence Number In List IZ (IX) 

Region IZ, the list of line numbers and call words, may expand to 454 q 
addresses. Each line number in IZ is followed either by its call word in the 
v position of the next address or by zero. In fixed location 11 is a counter 
which keeps track of the size of IZ. At the beginning of string-out 
00 20000 00000 is put into 11. Each new line number added to the list increases 
11 by 00 00002 00002. 

To use routine IX, a referenced line number is first put into proper form 
by sending it to the Line Number routine. The line number in proper form is 
then put into A and the routine is set into operation by RJ IX 1X1. First 

list IZ is checked to see if the line number is already in the list. If it is 

there, no further action is taken. If it is not in the list, it is added at 
the end and the number in the subsequent address is cleared to zero. 

As 11 is increased with each new number, it is checked to see if it exceeds 

00 20454 00454. If this happens, the following error print-out occurs: 

- REFERENCED LINES EXCEED 150. At the same time a return jump is made to the 
UZ Error routine and all subsequent referenced line numbers, if not found in 
the list, are used merely to increase a count of excess referenced line re¬ 
ferrals contained in 1X47. A later subroutine EE of the End of Tape instruction 
prints the number in 1X47 if it is other than zero. 

(z) Excess-Three Decimal to Octal Routine (RS) 

Input to this routine is assumed to be one line of six characters packed 
starting at the left. Numbers are positive integers varying from 0 to 999999. 
Decimal fractions are not converted. A non-digit character in the leftmost 
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position of the input line causes an early exit from the routine with the out¬ 
put line cleared to zero. 

RS4 is the input line. RS3 is the output line. The instruction of entry 
to the routine is RJ RS2 RS. 

One reco region, RS, contains all instructions, constants, and working- 
storage locations comprising the routine. This region takes up 55g addresses. 

Each character of the line of input is masked out and converted from 
excess three. Before storing in a common line with other digits, it is checked 
to see if it has a value below 0 or above 9. Such a value causes a termination 
of further assembly of characters and, if the count of digits is not zero, the 
immediate beginning of octal conversion. 

Before starting conversion, the number of digits is subtracted from six 
and this difference multiplied by six to determine an initial shift of the line 
of digits. 

To obtain the index for the loop used in conversion, one is subtracted from 
the number of digits. 

The conversion-to-octal loop consists of a left Q-shift of the digit line 
six places, an SP u 2 command, an SA u 1, and a Q-controlled-add masking 
operation setting up the u of the preceding steps for the next loop. 

(aa) Excess-Three Decimal to Floating Point (GG) 

The two lines of excess-three input are GG4 and GG5. Numbers are packed, 
starting from the leftmost position. Positive numbers from .00000000001 to 
999999999999 are permissible input to the routine. Negative numbers may be 
converted to floating point by complementing the floating point output. Each 
number starts in GG4. The output goes to GG3. The instruction to use the 
routine is RJ GG2 GG. 

Three reco regions contain the routine. GG takes up 170g locations; CF 
occupies 17g places; and CC, temporary storage, is in 27g addresses. Thus 
236 q addresses are needed for its operation. 

Each line of input contains six excess-three characters. A 6-bit binary 
number represents each character. If a character number is less than three or 
greater than 12, it acts as an end-of-digits notice to the routine. The one 
exception to this notice is the number representing a first period (or decimal 
point) occurring in the input lines. 

All characters following an end-of-digits character are ignored by the 
routine. If no significant figures have preceded an end-of-digits number, 
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the output line is cleared to zero. The routine converts to floating point 
only the figures preceding an end-of-digits representation. 

Zeros in front of a decimal point when not preceded by a figure greater 
than zero are not counted as significant figures. Significant figures, whether 
preceding or following a decimal point, are stored after subtracting three in 
a set of consecutive registers and converted in a multipying loop to an octal 
number stored in two address locations. 

This number is divided by 10 to a power equal to the number of original 
decimal figures following the decimal point. Before this division the dividend 
is shifted left by the number of binary places needed to give a quotient of 10 
significant octal figures. Special provision is made in the case of 11 figures 
after the decimal point when the divisor 10 overflows a 36-bit register. If 
no decimal point was among the original decimal figures, or if no figures 
followed the decimal point, this division is bypassed. 

In either case, the scale factor command is used in the routine to de¬ 
termine the size of the result and location of the first significant bit. The 
number is rounded off to 9 octal places and shifted till it occupies the 
positions in the output. It becomes the mantissa of the floating 

point number with as its first significant bit. 

The k of the scale factor command is used to compute the biased character¬ 
istic (b) as follows: (numbers are in octal) 

If k = 45, both the biased characteristic and mantissa equal zero. 

If k > 45, b = k - 110 + 243 + (CC 6) - (CC 5). 

If k <45, b = k + 243 + (CC 6) - (CC 5). 

(CC 6) = 1 or 0 depending upon whether a round off caused or didn't cause 
a carry-over from the first significant bit. (CC 5) = shift of dividend before 
division. 

(ab) Assign Constant Call Word (GW) 

To use this routine, put the input constant in A and give instruction RJ 
GW GW1. Call-word output goes to A^ and Q y . 

If n of 0 2, n n in absolute address 10 exceeds lOOOg, the Error routine 

UZ is referenced and the alarm print-out occurs: TOO MANY CONSTANTS. The 
computer does not stop. A count is kept in FX13 of the number of excess re¬ 
ferrals to the routine beyond the maximum. Later an End of Tape subroutine 
EA prints out this number if it is other than zero. Call-word number 67777 is 
assigned to all constants beyond the maximum. 
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The counter for number of constants, 10, is set at 00 20000 00000 at the 
start of translation. 

(ac) Tape Handlers (TH or GT) 

There are two Tape Handlers, one for the 1105 and one for the 1103A. They 
are essentially the same. The 1105 version operates in the Bypass mode only 
but on either tape control unit as follows: 

MJ2 OFF TCU1 

MJ2 ON TCU2 

The 1103A version ignores MJ2. 

When the routine is entered, a parameter must be present in TH3. This 
parameter is not destroyed so that consecutive references to accomplish identical 
operations do not require that a parameter be sent to the routine for each 
reference. However, the general calling sequence is 

TP PM TH3 

RJ TH2 TH 

where PM is the address of the parameter. 

The parameter has the following form: 

RMTNNSSVVVVV 
each letter representing one octal digit. 

R specifies the operation desired: 

R = 1 Rewind 

R = 2 Rewind with Interlock 
R = 3 Move forward 

R = 4 Move backward 

R = 5 Read forward 

R = 6 Read backward 

R = 7 Write 

R = 0 Write (special case, explained later) 

M specifies blockette spacing (for write only) 

M = 1 0.0 inches 

M = 2 0.1 inches 

M = 4 1.2 inches 

T specifies block spacing and density (for write only) 
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T = 0 1.2 inches - lower density 

T = 1 1.2 inches - higher density 

T = 2 2.4 inches - lower density 

T = 3 2.4 inches - higher density 

NN = number of blocks to be written. 

MTNN = number of blocks to be read or moved. 

SS = Uni servo number 

WWV = High speed storage address for read and write. It specifies the 
first location to or from which the first word on tape is read 
or written. Thus, successive words on tape correspond to ascending 
storage addresses for Read Forward and Write operations. In Read 
Backward operations successive words on tape are read into de¬ 
scending storage locations. 

If the number of blocks to be moved, read, or written is zero, the Tape 
Handler will not cause a move, read or write, except in the case of R = 0 when 
one block is written. Hence, it is suggested that R = 0 never be used in a 
parameter. There is a print-out and stop after six reads of a block in which 
a parity or sprocket error occurs. 

(ad) Line Number Processor (LN) 

A Line or Sentence number may be any positive, rational number which re¬ 
quires at most three decimal digits to the left of the decimal point and at 
most two to the right. Every Sentence of a UNICODE Program must be numbered and 
each Sentence number must be greater than the Sentence number corresponding to 
the preceding Sentence. 

According to the above definition, a Line or Sentence number need consist 
of at most six characters (five digits and a decimal point). Hence, if six 
characters are allowed for each number and no further restrictions are made, 
representation of those Line numbers which have less than five digits will not 
be unique. To clarify this statement, consider the following possible rep¬ 
resentations of Line Number 1.3: 

A A A 1 . 3 

( A 1 . 3 ) 

1 . 3 A A A 

0 0 1.30 

(1.30) 

A A 1 . 3 A 
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The purpose of this routine is to process all input Line numbers so that 
each processed number can be represented in one and only one way. This is done 
in such a way that equality and threshold jumps can be used to make direct 
comparisons of the numbers. The excess-three representation of decimal digits 
makes this possible. Because six Unityper codes occupy one 36-bit word, these 
comparisons can be single precision comparisons. 

Definition of Legal Input to Line Number Processor 
Input consists of the six Unityper characters which represent the Line 
number. Let these characters be numbered 1 through 6 from left to right. To 
be legal, an input Line number must obey the following rules: 

1. No Unityper codes other than those for ( ) A . f 0 123456 

789 may appear, (here ¥ denotes the "Nonexisting character" whose 
code is 77), 

2. At most one code may appear (none is needed if the Line number is 
an integer). 

3. At least one non-zero digit code must appear. 

4. An input Line number can not have more than three digits to the left 
of the or more than two digits to the right of the regardless 
of whether or not these digits actually contribute something to the 
Line number (see examples below). 

5. The four characters ( ) A . are all considered equivalent and, hence, 

are all treated in the same way. They are ignored (or discarded) 
except that none of them can appear between the first and last digit 

of the Line number. 

Description of Output Line Numbers 

The output Line numbers also consist of six Unityper characters. The out¬ 
put or processed Line number will, of course, satisfy the five conditions given 
above. In addition, it will satisfy the following requirements; 

1. Character 4 will always be the decimal point 

2. In the integral part, only non-zero digits and zero digits which follow 
at least one non-zero digit will appear. 

3. In the fractional part only non-zero digits and zero digits which are 
followed by at least one non-zero digit will appear. 

4. The integral digits appear in character positions 1, 2, 3 and the 
fractional digits in character positions 5, 6. 


315 



It M 


are 


5. All character positions which are not filled with digits or a . 
filled with space (A) codes. 

Hence, the effect of this routine operating on a Line number is to shift 


4- V>/\ T i m rt m ii *vi K nv» nut i 1 + V» a ^ Art i i*io 1 

tug uxiic ii umuuJL uu v jl a mu uu^imui 

A A i M + 1 C 1 M r\ A A 1 1 A M 

pVJ.Hl/ -L O XU pUOl 1/1U11 

1 A I A V> €• A1» + •"« rl AA 1 WO 1 Art'S IT 

l *t v liiggi u a u^uxutux pum 

if there is none), delete all unnecessary digits, and 

put A codes in all unused 

positions. 



Examples: 



Legal Input 

Corresponding Output 

Line numbers 

Line numbers 


123.45 

123.45 


023.40 

A23.4A 


003.00 

AA3.AA 


(A1AA) 

AA1.AA 


000.01 

AAA.01 


999.99 

999.99 


Illegal Input Line Numbers 


A12.3A 

0127.9 

1.23.A 

0000.2 

.004 A A 

93A2.6 

4321A A 

.12000 

AAAOAA 

Two classes of Line numbers 

are taken care of by 

the Line number processor 

those occurring within a UNICODE 

instruction and those 

: appearing in the left- 

hand margin in the first six character positions of a 

Sentence. 

For both classes of numbers. 

the input number is 

put into LN4 and the out- 


out number is obtained from LN3. 


Operation of the routine for those numbers appearing within a UNICODE 
instruction is called Case I and is done by instruction RJ LN2 IH. 

Case II operation of the routine takes care of Line numbers in the left- 
hand margin. Instruction RJ LN2 LN1 is used for this type of number. 

In either case, if there is an error print-out, the output cell, LN3, will 
contain the input Line number and the routine sets the error bit by instruction 
RJ UZ UZ1 before the print-out. 

Error print-outs. Case I: In this case the Print Error Heading routine, 
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WA, is used to print the number and type of the sentence in which the illegal 
Line number occurred. This is then followed by one of the four possible alarm 
comments and the input Line number which gave rise to the alarm. 


Examples of the four different alarm print-outs for Case I follow: 


SENTENCE 123.45 
SENTENCE 123.45 
SENTENCE 123.45 
SENTENCE 123.45 


(VARY) ILLEGAL CHARACTER IN SENTENCE NUMBER (ABCDEF) 

(VARY) EXTRA INTEGRAL DIGITS IN SENTENCE NUMBER (1234.0) 
(VARY) EXTRA FRACTIONAL DIGITS IN SENTENCE NUMBER (12.345) 
(VARY) ILLEGAL SEQUENCE IN SENTENCE NUMBER (1.2.3.) 


Note that the length of the longest comment is 74 characters plus the number 
required by the sentence name. 


Error print-outs. Case II: Because the Line numbers in the left-hand 
margin are examined before the type of sentence has been determined, it is not 
possible to use the WA routine to give the type of sentence. The illegal 
sentence numbers are given twice as shown in the four examples below: 


SENTENCE ABCDEF 
SENTENCE 1234.0 
SENTENCE 12.345 
SENTENCE 1.2.3. 


ILLEGAL CHARACTER IN SENTENCE NUMBER (ABCDEF) 

EXTRA INTEGRAL DIGITS IN SENTENCE NUMBER (1234.0) 
EXTRA FRACTIONAL DIGITS IN SENTENCE NUMBER (12.345) 
ILLEGAL SEQUENCE IN SENTENCE NUMBER (1.2.3.) 
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(8) Region Assignments of Translation Subroutines 


RE 

TN20 


Tndicates 5 or 7 servos 

RE 

GT21 

\ 

RE 

TH21 

/ Tape Handler 

RE 

UP421 

\ 


RE 

RE 

DQ443 

DS453 


> Print Text 

RE 

UW513 

y 


RE 

WA537 


Print Error Heading 

RE 

WB563 

J 


RE 

BS603 


Build Symbol 

RE 

CC630 

) 


RE 

CF657 

\ 

4 

> Constants 

RE 

CJ676 

J 


RE 

CT714 


Translation Control 

RE 

DG752 


Part of Get Symbol 

RE 

DR 757 



RE 

DS1001 


Delete Spaces 

RE 

EW1010 


Send Call Word to Translation list 

RE 

FS1032 


Fill Symbol 

RE 

FW1061 


Switch List 

RE 

FX1120 


Part of Constant C.W. routine 

RE 

GG1134 


XS3 constant to floating point 

RE 

GN1324 


Get Next Character 

RE 

GR1377 

I 

1 

RE 

GS1406 

1 

> Get Next Sentence 

RE 

GUI444 

J 

1 

RE 

GW1457 


Assign constant C.W 

RE 

GX1475 


Part of Get Sentence 

RE 

HA1500 

1 

1 Part of Trans. Control 

RE 

HB1541 

1 

J 

f 

RE 

1X1552 


Referenced line no. to list 

RE 

KA1622 

y 

1 

RE 

KB1664 


> Constants 

RE 

KK1723 

j 

) 

RE 

LL2030 


Part of Get Symbol 

RE 

LN2037 


l Line no. Processor 

RE 

MR2052 


1 

RE 

0T2146 


Set for 5 or 7 servos 

RE 

RA2156 


Sentence C.W. to Reference List 

RE 

RB2172 


Check Floating Point Constant 

RE 

RC2221 


Part of line no. processor 

RE 

RD2237 


Check Fixed Point Constant 

RE 

RH2265 


Check Variable Type Symbol 

RE 

RL2316 


Part of Get Symbol 

RE 

RS2350 


Decimal to Octal Conversion 

RE 

RU2425 


Part of Get Symbol 

RE 

RW2444 


Rewind All Tapes 

RE 

SY2466 


l Get next symbol 

RE 

SZ2530 


f 
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RE 

TA2546 ] 

, Get File from CB list 

RE 

TB2637 J 


RE 

1D2654 

Send File back to CB list 

RE 

TE2663 ] 


RE 

TF2702 \ 

Add File to CB list 

RE 

TG2732 J 


RE 

TK2742 

Increase 66, 65, 64 C.W. counter 

RE 

TS2762 

Get C.W. from dummy pseudo op. List 

RE 

UA3005 

Part of Trans. Control 

RE 

UB3013 

Setup Translation Tape 

RE 

UC3033 

Part of Line no. processor 

RE 

UD3060 

Part of Get Symbol 

RE 

UM3065 

Part of Get Symbol 

RE 

UZ3067 

Error Routine 

RE 

VB3111 1 

. Variables 

RE 

VD3116 J 


RE 

VE3122 ^ 


RE 

VG3142 | 

Close Vary File 

RE 

VH3171 

> 

RE 

VI3176 J 


RE 

WS3203 

Part of line no. processor 

RE 

WT3207 'l 

> Send Translation List to Tape 

RE 

SS3207 J 


RE 

XJ3225 

Increase 26, 27, 22 C.W. counter 

RE 

XM3246 

Part of Get Symbol 

RE 

Z03263 

Part of Trans. Control 

RE 

ZS3267 

Part of constant call word routine 

RE 

BF3317 

Read buffer 

RE 

VN3507 1 

> Translation List 

RE 

WL3507 J 


RE 

FC40001 

Flex Codes 

RE 

CB40101 

Combination List 

RE 

CL46101 

Constant Pool 

RE 

VF47101 

Vary File 

RE 

IZ47246 

List of Referenced Line Numbers 

RE 

JN47722 

2nd lines of Pseudo operations 

RE 

WR50023 

Rewind List of Referenced tape nos. 

RE 

DP50046 

List of Pseudo op. Dummies 

RE 

VL50200 

Vary List 

RE 

FA50333 "'j 


RE 

FB50407 


RE 

FD50447 


RE 

FE50513 

Error Texts 

RE 

FF50545 


RE 

FG50575 

> 

RE 

FH50624 


RE 

F150673 


RE 

N050722 


RE 

PA50752 


RE 

CD51007 j 
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RE 0A32253 
RE 0C30223 
RE 0D31220 
RE OE33753 

RE OF30250 

RE 0G32423 
RE 0H32444 
RE 0130067 
RE 0J30144 
RE OK30030 

RE 0L30225 
RE 0M30052 
RE 0N30045 
RE 0033663 
RE 0P31050 
RE 0Q4400 
RE 0R4000 
RE 0S4566 
RE 0U4700 
RE CP51075 
RE RE53350 
RE TL53573 
RE LM55013 
RE PS60766 
RE KP61236 
RE VY63661 
RE RV66325 
RE SJ66414 

RE SP66560 
RE EU66610 
RE EZ67035 
RE ST67107 
RE YA67154 
RE HE74530 


Compute 

Read 

Type 

List 

Print 

If 

Vary 

Resume 

Jump 

Stop 

End of Tape 
Exit 
Start 
Equation 

Pseudo Op. Heading 
Most Translators 
Eq and List 
If 


3 ( n ) 

Where n = number 
of words to transfer 
from drum. 


Starting addresses 
in core 


Compute 

Read 

Type 

List 

Print 

If 

Vary 

Resume 

Jump 

Stop 

End of Tape 
Exit 
Start 
Equation 
Pseudo Op. 


Heading, 


1st addresses 
of Translators 
on drum 
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(a) Flow Charts of Translation Subroutines 
(a) Setup Translation Phase 
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Var. type 
symbol? 




27XXX 
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(c) Get Next Sentence (GS) 



Exit 
, GS> 


F14 


yes 


TH 





(d) Get Next Character (GN) 



Clear errors 
per Sent. 
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(e) Get Next Symbol (SY) 
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(f) Get Rest of Lower Symbol (RL) 



(£•-) The Get Rest of Superscript Symbol (RU) is the same as above except that the characters 
which are separators are somewhat different. 











329 



(1) Add File to CB List (TE) 















(p) Increase 66XXX, 65XXX, 64XXX Call Word Counter (TK) 
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(q) Increase 26XXX, 27XXX, 22XXX Sentence CW Counter (XJ) 




(r) Print Error Heading 


Sent. No. (WLl) 
-> WB3 

WA1 = RJ UZ UZ1 
(WL2)—^WB5 



(WL2) = 
EQUATN? 
EQUATI? 



Yes 


fA) 



WB5 = COMPUT 
WB6 = E 7-7 


WB5 = DIMENS 
WB6 = ION 7—7 







(s) Error Routine (UZ) 
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(x) Put Call Word in Sentence Number Reference List (RA) 



(y) Rewind All Tapes (RW) 
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(z) Tape Handlers (TH) 1105 and 1103A 


Set servo no 
and tape bit 


Read, Write 
or move zero 
^ blks? ^ 



Code word 
—» W 


EF 0 W 


_No 

/ Moves? \ 

No 

( Reads?^ 

Yes > 

Read fwd 

/ ? 

V ) 



r > 

(bwd) normal 



Set index 
code word— 


Move N 
blocks 


Build 

Write code 


Write N 
blocks 




No 

All read^ No 



Parity? 



Move fwd 
(bwd) 1 blk 



Read bwd 
(fwd) normal 

Parity? 




Read fwd 
(bwd) high 


Stop ' 
for 

restart, 


No 

^Parity?' 

Yes 

_ I 

Print out 
and stop 


Read bwd 

< Yes ( 

(fwd) low 



Read fwd 
(bwd) low 


No ^ Parity?^, 
Yes 

_ W 

Read bwd 

(fwd) high 




<D 
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(aa) Routine To Set TN Indicator for 5 or 7 (MJl) Uniservos (OT) 
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Routine To Write Title Block of String-Out Tape and Select Proper Parameter for 
WT Tape-Write Routine Depending on Value in TN or Availability of 5 or 7 Uni servos (UB) 
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(ab) Translation Tape Write Routine (SS or WT) 



Reference generalized 
^ tape handler to write 
string-out on tape 



















(ad) Excess-Three Decimal to Octal (RS) 



Conversion 
from excess 3 


Checking for end 
of digits signs 


No 


Yes 



Jump to 
exit 


Decimal to octal 
conversion 
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(ae) Excess-Three Decimal to Floating Point (GG) 



Alarm 

\ Exit/ 

Output 


Input 


Input 


Clear and set 

V 







storage elements 


MJ 


Add biased charac¬ 
teristic and 
mantissa and store 
in output 


Compute biased char-) 
acteristic and 
mantissa 


Convert from excess 
3, count, and store 
integral portion of 
input 


Convert from excess 
3, count, and store 
fractional portion 
of input 


Convert decimal 
numbers to octal via 
multiplication and 

division 












(af) Assign Constant Call Word (GW) 
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(ag) Close VARY File (VE) 




Close last file 
in variable 
list 


/ind 
t (decrea se) 







No 




Decrease 
( Q ) by two 



No / Is word at addres^ 
-a( given by (a)+i 

flagged? ^ 

Yes 



Is current sentence 
number > sentence numberj-^Kf) 
^at address given by ( a )?y 



( a ) = address of last unclosed item in vary 
file. 

(/3) = address first unclosed item in vary file 

(y) = address for inserting next item in vary 
file 


Close Vary File and Variable List 




















































(10) Coding of Translation Subroutines 
(a) Regions Setup Translation 
(Translation Subroutine Regions necessary also) 


ZZ7230 

40 

CE7270 

41 

ZY7331 

44 

ZC7375 

41 

7436 


BB7116 



CR5075 

Entrance dim #2 


0Q4400 

Entrance dim #1 

- 1 

0V37020 

No. wds in buffer for RP3 

0Z75413 

= FA + 3 x (no. 

wds in buffer) 

0Y30165 

No. wds in last 

blk of translators 

TI7610 

Tape image 
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Setup Translation Phase 
(the 2 blocks after the merge) 



IA 

ZZ 


7230 

0 

TP 

CE32 

BB2 1 

( Read in 2nd blk 

1 

RJ 

BB 

BB1 J 


2 

TP 

CE36 

CE35 

Set index 

3 

TV 

CE37 

ZZ7 

Set address 

4 

TP 

CE3 

ZC2 j 

1 

5 

RJ 

ZC 

ZC1 

l Read 30^ of S.O. —> drum 

6 

RP 

OV 

ZZ10 

7 

TP 

1 

(30000) J 

1 

10 

RA 

ZZ7 

CE40 

Increase address 

11 

IJ 

CE35 

ZZ4 

Read 90^ blks —^-drurn 

12 

TP 

CE4 

ZC2 ] 

13 

RJ 

ZC 

ZC1 1 

i Last of S.O. —> drum 

14 

RP 

OY 

ZZ16 

r 

15 

TP 

1 

OZ 


16 

TP 

CE33 

BB2 > 

1 

17 

RJ 

BB 

BB1 

1 FC —> drum 

20 

RP 

30100 

ZZ22 | 

f 

21 

TP 

TI 

FC J 

1 

22 

TP 

CE5 

ZC2 1 

i Read in S.O.S. 

23 

RJ 

ZC 

ZC1 J 

r 

24 

TP 

CE34 

TH3 1 

1 Read in dim. * 1 & * 2 

25 

RJ 

TH2 

TH J 

r 

26 

RJ 

ZY 

ZY1 

Setup S.O.S. 

27 

TP 

CE6 

TH3 1 

L 

30 

RJ 

TH2 

TH J 

1 Move » 5 fwd 1 blk 

31 

RJ 

GS 

GS1 

Get sentence 

32 

RJ 

SY 

SY1 

Get sym —» A 

33 

EJ 

CE7 

ZZ35 

DIMENS —> ZZ35 no 4- 

34 

MJ 

0 

CR 

—> Dim. # 2 

35 

TP 

SY2 

WL2 

WL2 = DIMENS 

36 

RJ 

SS 

SSI 

Send S.O. — > tape 

37 

MJ 

0 

0Q1 

—^-dim. 1 


CA 

ZZ40 
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Constants 



IA 

CE 






0 

0 

0 

0 

Zero 




1 

0 

0 

1 

One in V 




2 

0 

1 

0 

One in U 




3 

0 

1 

7020 

S.O. parameters 30 

4 

0 

1 

165 

Last S.O 

. par. 


5 

0 

TH 

ZS27 

S.O.S. par. 



6 

30 

105 

0 

Move * 5 

fwd 1 

blk 

7 

27 

'J/l/17'3 

1 u 

05065 

D I M 

tr 

J_l 

W 

1 * 

c 

1 

10 

0 

0 

37700 

VBO 




11 

0 

20000 

0 





12 

77 

77777 

77776 

VB1 - VB4 



13 

0 

CB1 

CB1 





14 

0 

BF165 

BF165 





15 

01 

22777 

77777 

A . 




16 

0 

VL1 

VL1 





17 

0 

CE20 

12 





20 

01 

01010 

10101 

AAA 

A 

A 

A 

21 

52 

24656 

50134 

PAS 

S 

A 

I 

22 

22 

01010 

10101 

. A A 

A 

A 

A 

23 

01 

66542 

45065 

AIR 

A 

N 

S 

24 

46 

24663 

45150 

L A T 

I 

0 

N 

25 

02 

02305 

45451 

- - E 

R 

R 

0 

26 

54 

01273 

06630 

RAD 

E 

T 

E 

27 

26 

66345 

15001 

C T I 

0 

N 

A 

30 

24 

50270 

17124 

AND 

A 

W 

A 

31 

54 

50345 

03265 

R N I 

N 

G 

S 

32 

0 

170 

ZZ170 

Read 2nd 

blk 


33 

0 

170 

11 

Read in FC 



34 

50 

00401 

OQ 

Dim. * 1 

& # 2 

par 

35 

0 

0 

0 

Index 




36 

0 

0 

2 

Set index 



37 

0 

0 

FA 





40 

0 

0 

7020 






CA CE41 


blks 
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Setup Translation Subroutines 



IA 

ZY 



0 

MJ 

0 

(30000) 

Exit 

1 

TP 

CE10 

VB 

Start, VB = 0 0 37700 

2 

RP 

10004 

ZY4 ) 

L 

3 

TP 

CE12 

VB1 J 

1 = -1 

4 

TP 

CE13 

TE2 

IE2 = 0 CB1 CB1 

5 

TP 

CE11 

CB 

CB = 0 20000 0 

6 

TP 

CE14 

GN2 

GN2 = 0 BF165 BF165 

7 

RP 

10004 

ZY11 ) 

1 

10 

TP 

CE 

GN3 J 

' - 0 

11 

TP 

CE15 

SY2 

SY2 = A. 

12 

TP 

CE 

EW4 5 


13 

TP 

CE 

IE 3 


14 

TP 

CE 

TS4 


15 

TP 

CE 

UZ2 

> = o 

16 

TP 

CE 

UZ3 


17 

TP 

CE 

TK2 


20 

TP 

CE 

XJ2 j 


21 

TP 

CE 

VD 

= 0 

22 

RP 

10017 

ZY24 ] 

1 = 0 

23 

TP 

CE 

1 J 

r 

24 

RP 

10005 

ZY26 1 

i = 0 20000 0 

25 

TP 

CE11 

5 J 


26 

TP 

CE 

7 

= 0 

27 

TP 

CE 

VD1 

= 0 

30 

RJ 

OT 

0T1 ) 

Set upTN, write heading on tape 

31 

RJ 

UB 

UB1 J 

r 

i 

32 

TP 

CE1 

13 

No. blks = 1 

33 

TP 

CE17 

UP3 1 

, Print "Pass I etc." 

34 

RJ 

UP2 

UP J 


35 

TP 

CE16 

VL 

VL = 0 VL1 VL1 

36 

TP 

CE11 

JN 

JN = 0 20000 0 

37 

TP 

CE11 

WR 

WR = 0 20000 0 

40 

TP 

CE 

FX13 

= 0 

41 

I? 

CE 

1X47 

= 0 

42 

TP 

CE11 

VF 

= 0 20000 0 

43 

MJ 

0 

ZY 



CA 

ZY44 




353 



Read n blks to storage 


0 

IA 

MJ 

ZC 

0 

(30000) 

Exit 

1 

MJ 

0 

ZC3 


2 

0 

30000 

30000 

0 1st address last ; 

3 

TP 

ZC2 

0 

Par. —»Q 

4 

QT 

ZC34 

ZC35 

Store 1st address in u 

5 

LQ 

0 

17 

Last address —> Q u 

6 

QT 

ZC34 

A 

7 

ST 

ZC35 

A 1 

L Last - 1st + 1 — >A 

10 

AT 

ZC37 

A J 

1 u 

11 

LQ 

Q 

6 

1st add — ^Qv 

12 

TV 

0 

BB2 

Set up 1st add. 

13 

DV 

ZC40 

ZC33 

n/ I70g — > index 
Store°remainder 

14 

TP 

A 

ZC32 

15 

TP 

0 

A 1 

[ Quotient = 0 — > ZC26 

16 

ZJ 

ZC17 

ZC26 J 

' no ^ 

17 

RS 

ZC33 

ZC36 

Index - 1 

20 

TO 

ZC40 

BB2 

No. wds = 170 ft 

Read blk ° 

21 

RJ 

BB 

BB1 

22 

RA 

BB2 

ZC31 

Address + 170 ft 
n blks 0 

23 

IJ 

ZC33 

ZC21 

24 

TP 

ZC32 

A 1 

1 Remainder = 0 —> exi 

25 

ZJ 

ZC26 

ZC J 

1 no y 

26 

TO 

ZC32 

BB2 

Remainder —> par. 

27 

RJ 

BB 

BB1 

Read remainder 

30 

MJ 

0 

ZC 

Exit 

31 

0 

0 

170 

120io 

32 

0 

0 

0 

Remainder 

33 

0 

0 

0 

Index 

34 

0 

77777 

0 


35 

0 

(30000) 

0 


36 

0 

0 

1 


37 

0 

1 

0 


40 

0 

170 

0 



CA 

ZC41 
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(b) Translation Control 


IA 

0 TP 

1 El 

2 TP 

3 EJ 

4 RJ 

5 MJ 

6 RJ 

7 RJ 

10 EJ 

11 TP 

12 ZJ 

13 TP 

14 TP 

15 TP 

16 QJ 

17 EJ 

20 RP 

21 EJ 

22 RP 

23 EJ 

24 RJ 

25 TP 

26 TP 

27 TP 

30 RJ 

31 TP 

32 EJ 

33 MJ 

34 RP 

35 TP 
CA 


CT 

WL2 

KB10 

SY2 

KK55 

SY 

0 

GS 

SY 

KB 

VD 

HA 

SY2 

KB27 

SY7 

CT17 

KB1 

20023 

KB 

20004 
KB 33 
UZ 
WL1 
SY2 
FA 
UP2 
SY2 
KB16 
0 

30004 

KA20 

CT36 


A 

CT6 

A 

CT6 

SY1 

CT3 

GS1 

SY1 

ZO 

A 

CT13 

A 

WL2 

0 

UA 

FW30 

CT22 

CT24 

HA 33 

CT24 

UZ1 

FA 3 

FA13 

UP3 

UP 

A 

FW24 

CT2 

FW24 

WL 


PRINT —CT6 
no 4' 

A. —> CT6 no I 
Sym —> A 

Get sent. 1 
Sym —> A 

D I M E N S —* ZO 
After START —> HA 
Before ^ 

Sym —» A 

WL2 = E Q U A T N 

Var. type I no —> UA 
START —> FW30 no \ 


Key word ^ no —> HA33 
FI 


Sym —> A 

END —*• FW24 no I 

Return 

END heading —> string 



IA 

ZO 



0 

RJ 

WA 

WA1 1 


1 

TP 

NO 10 

UP3 

► F20 

2 

RJ 

UP2 

UP J 


3 

MJ 

0 

CT2 

—> Control 


CA 

Z04 




355 



After START Control 



IA 

HA 



0 

RJ 

XJ 

XJ1 

Stm’t CW + 1 

1 

TP 

ST 7 

Q \ 


2 

QJ 

HA3 

UA J 

VAR, P.O., LIB 

3 

TP 

SY2 

A } 


4 

TP 

A 

WL2 > 

Sym —> A —> he 

5 

EJ 

KB2 

HB 

VARY HB 

6 

TP 

VB4 

A 

Stm’t CW count 

7 

TP 

TS4 

Q \ 

In P.O. 1 no 

10 

QJ 

HA11 

HA13 J 

11 

AT 

KB25 

WL3 

CW = 22XXX 

12 

MJ 

0 

HAH 

Skip HA13 

13 

AT 

KB24 

WL3 

CW = 27XXX 

14 

RJ 

VE 

VE1 

Routine A 

15 

TP 

SY2 

A 

Sym —► A 

16 

EJ 

KB3 

FW 

Compute 

17 

EJ 

KB4 

FW2 

Read 

20 

EJ 

KB6 

FW4 

Type 

21 

EJ 

KB 7 

FW6 

Li st 

22 

EJ 

KB10 

FW10 

Print 

23 

EJ 

KB11 

FW12 

If 

24 

EJ 

KB12 

FW14 

Replace 

25 

EJ 

KB13 

FW16 

Resume 

26 

EJ 

KB14 

FW20 

Jump 

27 

EJ 

KB15 

FW22 

Stop 

30 

EJ 

KB 16 

FW24 

End 

31 

EJ 

KB17 

FW26 

Exit 

32 

EJ 

KB1 

FW30 

START 

33 

RJ 

TA 

IA1 

Check CB list 

34 

MJ 

0 

FW32 

Not in CB list 

35 

TP 

1A4 

Q 1 


36 

QT 

KB 30 

A J 

C.W. —» A 

37 

EJ 

KB31 

FW34 

P.O .—* headi 

40 

MJ 

0 

FW32 

no Eq. 


CA 

HA41 




no 


UA 


HAH 


Eq. in ^ 
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Not variable type symbol 



IA 

UA 


0 

RJ 

UZ 

UZ1 

1 

TP 

WL1 

FA 30 

2 

TP 

SY2 

FA 34 

3 

TP 

FA25 

UP3 

4 

RJ 

UP2 

UP 

5 

MJ 

0 

CT2 


CA 

UA6 



F2 


■» Control 


Vary 





IA 

HB 



0 

TP 

VB4 

A 


1 

TP 

TS4 

0 \ 

In P.O. — HI 

2 

QJ 

HB3 

HB5 J 

No —» HB5 

3 

AT 

KB25 

WL3 

CW = 22XXX 

4 

MJ 

0 

HB6 


5 

AT 

KB26 

WL3 

CW = 26XXX 

6 

RJ 

VE 

VE1 

Rout A. 

7 

MJ 

0 

FW14 

—> Vary 


CA 

HB10 
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(c) 


Switch to Translator List 



IA 

FW 



0 

RP 

OA 

0Q1 ' 

l 

1 

TP 

CP 

OQ 

1 Compute 

2 

RP 

OC 

0Q1 1 

L Read 

3 

TP 

RE 

OQ J 

1 

4 

RP 

OD 

0Q1 1 

L TyP e 

5 

TP 

XL 

OQ J 

r 

6 

RP 

OE 

0R1 1 

l Li st 

7 

TP 

LM 

OR J 

r 

10 

RP 

OF 

0Q1 1 

1 Print 

11 

TP 

PS 

00 J 

r 

12 

RP 

OG 

OS 1 

i if 

13 

TP 

KP 

0Q17 J 

i 

14 

RP 

OH 

0Q1 1 

l Vary 

15 

TP 

VY 

OQ J 

r 

16 

RP 

01 

0Q1 1 

i Resume 

17 

TP 

RV 

OQ J 

r 

20 

RP 

OJ 

0U1 1 

l Jump 

21 

TP 

SJ 

OU J 

r 

22 

RP 

OK 

OQ 1 

i Stop 

23 

TP 

SP 

OQ J 

r 

24 

RP 

OL 

0Q1 1 

l End 

25 

TP 

EU 

OQ J 

r 

26 

RP 

OM 

OQ 1 

i Exit 

27 

TP 

EZ 

OQ J 

r 

30 

RP 

ON 

OQ ] 

i Start 

31 

TP 

ST 

OQ J 

r 

32 

RP 

00 

0R1 1 

■ Equation 

33 

TP 

YA 

OR J 

34 

MJ 

0 

FW35 ) 


35 

RP 

OP 

OQ 1 

> Pseudo op 

36 

TP 

HE 

OQ J 



CA 

FW37 
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Translation Control Constants 



IA 

KB 







0 

27 

34473 

05065 

D 

I 

M 

E 

N 

1 

65 

66245 

46677 

S 

T 

A 

R 

T 

2 

70 

24547 

37777 

V 

A 

R 

Y 


3 

26 

51475 

26766 

C 

0 

M 

P 

U 

4 

54 

30242 

77777 

R 

E 

A 

D 


5 

46 

34656 

67777 

L 

I 

S 

T 


6 

66 

73523 

07777 

T 

Y 

P 

E 


7 

46 

34656 

67777 

L 

I 

S 

T 


10 

52 

54345 

06677 

P 

R 

I 

N 

T 

11 

34 

31777 

77777 

I 

F 




12 

46 

34656 

67777 

L 

I 

S 

T 


13 

54 

30656 

74730 

R 

E 

S 

U 

M 

14 

44 

67475 

27777 

J 

U 

M 

P 


15 

65 

66515 

27777 

S 

T 

0 

P 


16 

30 

50277 

77777 

E 

N 

D 



17 

30 

72346 

67777 

E 

X 

I 

T 


20 

52 

51717 

77777 

P 

0 

W 



21 

52 

51717 

77777 

P 

0 

w 



22 

50 

51667 

77777 

N 

0 

T 



23 

0 

0 

1 






24 

0 

0 

27000 






25 

0 

0 

22000 






26 

0 

0 

26000 






27 

30 

53672 

46650 

E 

0 

U 

A 

T 

30 

0 

0 

70000 






31 

0 

0 

40000 






32 

40 

0 

0 






33 

66 

24523 

07777 

T 

A 

P 

E 


34 

71 

34663 

37777 

W 

I 

T 

H 


35 

66 

33305 

07777 

T 

H 

E 

N 


36 

24 

50277 

77777 

A 

N 

D 




CA 

KB 37 
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(d) Get Next Sentence 



IA 

GS 



0 

MJ 

0 

(30000) 


1 

TP 

KA12 

UZ3 

Clear no. errors/sentence 

2 

TP 

GN2 

A 1 


3 

RP 

20006 

GS7 > 

Not special case —> GS7 

4 

EJ 

KA34 

GS5 J 

Special case 1 beg. of blockette 

5 

RA 

GN2 

KA31 

Address + 1 

6 

MJ 

0 

GS15 


7 

TP 

KA15 

A l 

In last blkette —> GR 

10 

TJ 

GN2 

GR J 

No '1' 

11 

SP 

GN6 

17 ) 

Address in GN2 = 2nd word of blkette 

12 

AT 

VD3 

GS13 } 

TP KA1 f GN2 

13 

0 

0 

0 J 


14 

RA 

GN6 

KA16 

Blkette count + 1 

15 

TP 

KA12 

GN3 

Clear shift 

16 

TP 

KA13 

GN5 

Char, count = 6 

17 

IU 

GN2 

GS21 } 


20 

RS 

GS21 

KA14 )■ 

Line no. —> A 

21 

TP 

(30000) 

A J 


22 

EJ 

KA7 

GU 

A's —> GU no ^ 

23 

TP 

KA17 

0 ) 


24 

QT 

A 

A \ 

Z’s —* CT34 

25 

EJ 

KA10 

CT34 J 

no ^ 

26 

IU 

GS21 

GS27 ) 


27 

TP 

(30000) 

LN4 \ 

Standardize line no. 

30 

RJ 

LN2 

LN1 j 


31 

TP 

KA24 

WL 

Word count = 4 

32 

TP 

LN3 

WL1 

Line no. —> WL1 

33 

TP 

KA12 

EW4 

Clear print ind. in EW. 

34 

RJ 

GN 

GN1 

Get char. 

35 

MJ 

0 

GS 

Exit 


CA 

GS36 




IA 

GR 



0 

TP 

KA6 

TH3 \ 

Read 1 blk of tape. 

1 

RJ 

TH2 

TH / 


2 

RA 

13 

KA16 

Count blks. 

3 

RP 

10004 

GR5 ) 


4 

TP 

KA12 

GN3 > 

Set GN 

5 

TP 

KA 

GN2 J 


6 

MJ 

0 

GS16 



CA 

GR7 
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IA 

GX 


A's within line 

0 

RA 

GU2 

KA14 1 

^ Check 19^ words for A's 

1 

IJ 

VD2 

GU2 J 

2 

MJ 

0 

GS2 

—> Get next sentence 


CA 

GX3 




IA 

GU 


A's as line # 

0 

TP 

KA33 

VD2 

Set index 

1 

TU 

GN2 

GU2 1 

1 

2 

TP 

(30000) 

a : 

> A ' s -» GX 

3 

EJ 

KA7 

GX J 

1 No 1 

4 

RJ 

UZ 

UZ1 

Set error 

5 

TP 

WL1 

FH21 ] 


6 

TP 

FH11 

UP3 

> F14 

7 

RJ 

UP2 

UP J 


10 

TP 

KA7 

WL1 

A's —> line * 

11 

TP 

KA24 

WL 

Count - 4 

12 

MJ 

0 

GS33 

—» Exit 


CA 

GUI 3 
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(e) Get Next Character 


0 

IA 

MJ 

GN 

0 

(30000) 

1 

MJ 

0 

GN7 

2 

0 

(0) 

(0) 

3 

0 

0 

(0) 

4 

0 

0 

(0) 

5 

0 

0 

(0) 

6 

0 

0 

(0) 

7 

TP 

KA26 

A 

10 

TJ 

GN5 

GN21 

11 

TP 

KA32 

A 

12 

TJ 

GN3 

GN42 

13 

RA 

GN3 

KA13 

14 

RA 

GN5 

KA16 

15 

TO 

GN2 

GN16 

16 

LQ 

(30000) 

6 

17 

QT 

KA30 

GN4 

20 

MJ 

0 

GN 

Char. 21 

TP 

KA24 

A 

Count = 22 

TJ 

GN6 

GN45 

120 23 

RA 

GN6 

KA16 

24 

RA 

GN2 

KA31 

25 

TP 

KA13 

GN5 

26 

TP 

KA12 

GN3 

27 

TO 

GN2 

GN30 

30 

TP 

(30000) 

A 

31 

EJ 

KA7 

GN40 

32 

RJ 

WA 

WA2 

33 

TP 

FI4 

UP 3 

34 

RJ 

UP2 

UP 

35 

TP 

KA12 

UZ3 

36 

RA 

0Z2 

KA16 

37 

MJ 

0 

CT6 

No. 40 

RA 

GN2 

KA31 

Line 41 

MJ 

0 

GN13 

Inos.1 42 

TP 

KA13 

GN3 

Shifts. 43 

RA 

GN2 

KA31 

36 44 

MJ 

0 

GN14 

block- 45 

TP 

KA12 

GN6 

ette^ 46 

TP 

KA6 

TH3 

5 47 

RJ 

TH2 

TH 

50 

TP 

KA34 

GN2 

51 

RA 

13 

KA16 

52 

MJ 

0 

GN25 


CA 

GN53 



Exit 

Address in buffer 
Shift 

Last character 
Character count 
Blockette count 
119 10 A 

Char, count £ 120 -> GN21 

35^0 * A 

Shift > 36 1 q -^GN42 

Shift + 6 
Char, count + 1 
Shift word by 6 

Char. —> A —> GN4 
Exit 
4 —> A 

Blkette i 5 —> GN45 
Blkette count + 1 
Address + 1 
Char, count = 6 
Clear shift 
Line no. —=>-A 

No line nos. —» GN40 yes ^ 

F17 

Clear errors/sentence 
Errors + 1 
—» Control 
Address +• 1 

Shift = 6 
Address + 1 
—^Get char. 

Read 1 blk. of raw data 

Address = 0 BF BF 
Count blks 
—> Return 
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Constants 

Get next sentence and 
Get next character 



IA 

KAO 






0 

0 

BF1 

BF1 

2nd address of 

1st 

blockette 

1 

0 

BF25 

BF25 

2nd address of 

2nd 

blockette 

2 

0 

BF51 

BF51 

2nd address of 

3rd 

blockette 

3 

0 

BF75 

BF75 

2nd address of 

4th 

blockette 

4 

0 

BF121 

BF121 

2nd address of 

5th 

blockette 

5 

0 

BF145 

BF145 

2nd address of 

6th 

blockette 

6 

50 

00105 

BFO 

Read 1 blk. of 

corr. tape 

7 

01 

01010 

10101 

A' s 




10 

00 

74747 

47400 

0 Z Z Z Z 

0 



11 

0 

0 

2 





12 

0 

0 

0 

Zero 




13 

0 

0 

6 





14 

0 

1 

0 





15 

0 

BF144 

BF 144 





16 

0 

0 

1 





17 

00 

77777 

77700 

Mask 




20 

0 

0 

4 

Count 

"1 

| 

END 

21 

74 

74747 

47474 

Z's 



string-out 

22 

30 

50277 

77777 

Sentinel END 



corr. 

23 

0 

0 

23000 

C.W. 

J 



24 

0 

0 

4 





25 

0 

23 

23 





26 

0 

0 

167 

119 in changed : 

from 

120 io 

27 

0 

0 

44 

36 io 




30 

0 

0 

77 

Mask 




31 

0 

1 

1 





32 

0 

0 

43 

Changed from 0 

BFO BFO 

33 

0 

0 

22 





34 

0 

BFO 

BFO 





35 

0 

BF24 

BF24 





36 

0 

BF50 

BF50 





37 

0 

BF74 

BF 74 





40 

0 

BF120 

BF120 





41 

0 

BF144 

BF144 






CA 

KA42 
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(f) Get Next Symbol 



IA 

SY 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

SY15 

Start 

2 

0 

0 

0 1 

1 

3 

0 

0 

0 ; 

> Symbo1 

4 

0 

0 

0 J 

f 

5 

0 

0 

0 

No. of characters 

6 

0 

0 

0 

No. of decimal points 

7 

0 

0 

0 

1st char, a letter 

10 

0 

0 

0 

1st char. I, J, K, L, M 

11 

0 

0 

0 

If a constant 

12 

0 

0 

0 

If symbol contains a letter 

13 

0 

0 

0 

If symbol is superscript 

14 

0 

0 

0 

Space indicator 

15 

RP 

30013 

SY17 1 

1 Sym —> XZ2 

16 

TP 

SY2 

SZ2 J 

r 

17 

RP 

10013 

SY21 ) 

> Clear output 

20 

TP 

KK54 

SY2 J 


21 

TP 

GN4 

A 

Char. —*-A 

22 

RJ 

DS 

DS1 

Delete spaces 

23 

EJ 

KK 

XM 

Period —*-XM 

24 

EJ 

KK1 

UD 

Upper decimal pt .—> UD 

25 

RP 

20012 

SY27 1 

1 Upper digit —>UD1 

26 

EJ 

KK2 

UD1 J 

1 

27 

EJ 

KK14 

UM 1 

i Upper - or / — > UM 

30 

EJ 

KK15 

UM J 

r 

31 

RP 

20032 

SY33 ) 

Letter — > LL 

32 

EJ 

KK16 

LL J 

1 No 1 

33 

TP 

KK50 

A 1 

1 Digit — > DG 

34 

TJ 

GN4 

DG J 

1 No \ 

35 

RJ 

BS 

BS1 

Build sym 

36 

RJ 

FS 

FS1 

Fill sym 

37 

RJ 

GN 

GN1 

Get character 

40 

TP 

SY2 

A 

Sym — » A 

41 

MJ 

0 

SY 

Exit 


CA 

SY42 


Digit 


IA 

DG 



0 

TP 

KK51 

A ] 

1 Not a digit — > return 

1 

TJ 

GN4 

SY35 J 

[ Yes 4- 

2 

TP 

KK57 

SY11 

Set constant 

3 

RJ 

RL 

RL1 

Get rest of lower 

4 

MJ 

0 

SY40 

Exit 


CA 

DG5 
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Lower Period or Point 



IA 

XMO 



0 

TP 

SY14 

Q 1 

A ind. set —» XM 

1 

QJ 

XM2 

XM11 J 


2 

TP 

KK55 

SY2 \ 

A. —> output 

3 

TP 

KK56 

SY3 > 


4 

TP 

KK56 

SY4 J 


5 

TP 

KK50 

SY5 ^ 


6 

TP 

KK54 

SY14 > 

Rest of output 

7 

TP 

KK53 

SY6 J 


10 

MJ 

0 

SY40 

Exit 

11 

TP 

KK57 

SY11 

Set constant 

12 

RA 

SY6 

KK53 

Pts + 1 

13 

RJ 

RLO 

RL1 

Get rest of lower 

14 

MJ 

0 

SY40 

Exit 


CA 

XM15 




Upper Point 



IA 

UD 



0 

RA 

SY6 

KK53 

Pts + 1 

1 

TP 

KK57 

SY11 

Set constant 

2 

RJ 

RUO 

RU1 

Rest of upper 

3 

TP 

KK57 

SY13 

Set upper 

4 

MJ 

0 

SY40 

Exit 


CA 

UD5 

Uppe 

r - and slash 


IA 

UM 



0 

TP 

KK57 

SY13 

Set upper 

1 

MJ 

0 

SY35 



CA 

UM2 


Letter 


IA 

LL 



0 

TP 

KK57 

SY7 

Set 1st char, a letter 

1 

TP 

KK57 

SY12 

Set letter 

2 

RP 

20005 

LL5 ) 

I J K LM 1 no —> LL5 

3 

EJ 

KK26 

LL4 J 

4 

TP 

KK57 

SYlO 

Set IJ...bit 

5 

RJ 

RL 

RL1 

Get rest of lower 

6 

MJ 

0 

SY40 

Exit 


CA 

LL7 
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Get rest of lower Symbol 



IA 

RLO 


0 

MJ 

0 

(30000) 

1 

RJ 

BSO 

BS1 

2 

TP 

KK75 

A 

3 

TJ 

SY5 

RL25 

4 

RJ 

GNO 

GN1 

5 

RP 

20015 

RL7 

6 

EJ 

KK1 

RL23 

7 

RP 

20015 

RL11 

10 

EJ 

KK60 

RL23 

11 

EJ 

KKO 

RL21 

12 

TP 

KK51 

A 

13 

TJ 

GN4 

RL17 

14 

TP 

GN4 

A 

15 

TJ 

KK104 

RL17 

16 

MJ 

0 

RL1 

17 

TP 

KK57 

SY12 

20 

MJ 

0 

RL1 

21 

RA 

SY6 

KK53 

22 

MJ 

0 

RL1 

23 

RJ 

FSO 

FSl 

24 

MJ 

0 

RLO 

25 

RJ 

GNO 

GNI 

26 

RP 

20015 

RL30 

27 

EJ 

KK1 

RL23 

30 

RP 

20015 

RL25 

31 

EJ 

KK60 

RL23 


CA 

RL60 



Exit 

Build symbol 

No. char.> 17 —> RL25 

< 17 |- 

Upper case —> RL23 
No 4 

Other separator —> RL23 
No i 

. RL21 
14 —> A 

Not a digit -> RL17 
3 —> A 

Not a digit —> RL17 digit I 

Set a letter 

No. Pts + 1 

Fill symbol 
Exit 

Get char. 

Separator —> RL23 
No . —> RL25 
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Get rest of upper symbol 



IA 

RUO 


0 

MJ 

0 

(30000) 

1 

RJ 

BSO 

BS1 

2 

TP 

KK75 

A 

3 

TJ 

SY5 

RU12 

4 

RJ 

GNO 

GN1 

5 

EJ 

KK1 

RU15 

6 

RP 

20012 

RU10 

7 

EJ 

KK2 

RU1 

10 

RJ 

FSO 

FS1 

11 

MJ 

0 

RUO 

12 

RJ 

GNO 

GN1 

13 

RP 

20012 

RU10 

14 

EJ 

KKl 

RU12 

15 

RA 

SY6 

KK53 

16 

MJ 

0 

RUl 


CA 

RU17 

(g) 


IA 

BSO 


0 

MJ 

0 

(30000) 

1 

MJ 

0 

BS4 

2 

0 

0 

(0) 

3 

0 

(SY2) 

(SY2) 

4 

TP 

SY5 

A 

5 

EJ 

KK76 

BS17 

6 

EJ 

KK77 

BS22 

7 

TU 

BS3 

BS10 

10 

LQ 

(30000) 

6 

11 

TP 

KK52 

Q 

12 

TV 

BS3 

BS13 

13 

QS 

GN4 

(30000) 

14 

RA 

BS2 

KK76 

15 

RA 

SY5 

KK53 

16 

MJ 

0 

BS 

17 

TP 

KK100 

BS3 

20 

TP 

KK54 

BS2 

21 

MJ 

0 

BS7 

22 

TP 

KKlOl 

BS3 

23 

TP 

KK54 

BS2 

24 

MJ 

0 

BS7 


CA 

BS25 



Exit 

Build symbol 

Char, count >17—>RU12 
no 'J' 

Get char. 

Upper . —> RU15 
Upper digit —> RU1 

Fill symbol 
Exit 

Get char. 


Pts. + 1 


Symbol 


Exit 

Start 

Shift 

Address of word SY2 - SY4 
Char, count = 6 —> BS17 

= 12 10 —> BS22 
Left shift by 6 

Mask —> Q 
Char. —> sym. 

Shift + 6 
Char, count + 1 
Exit 

Set for 2nd word 
Clear shift 
Return 

Set for 3rd word 
Clear shift 
Return 
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(h) Fill Symbol 



IA 

FSO 



0 

MJ 

0 

(30000) 

Exit 

1 

TP 

BS2 

A 

Start 

2 

EJ 

KK102 

FS13 

Shift = 36 -» FS13 

3 

TO 

BS3 

FS4 1 

Shift word by 6 

4 

L Q 

(30000) 

6 J 


5 

TP 

KK52 

Q 

Mask —> 0 

6 

TV 

BS3 

FS7 ) 

77 fill 

7 

QS 

KK52 

(30000) / 


10 

RA 

BS2 

KK76 

Shift + 6 

11 

EJ 

KK102 

FS24 

Shift = 36 —> FS24 

12 

MJ 

0 

FS4 

Return 

13 

TP 

BS3 

A 


14 

EJ 

KK103 

FS21 

1st word —> 

15 

EJ 

KK100 

FS22 

2nd word —> 

16 

TP 

KK54 

BS2 

Clear shift 

17 

TP 

KK103 

BS3 

Set for 1st word 

20 

MJ 

0 

FSO 

Exit 

21 

TP 

KK56 

SY3 

Fill 2nd word 

22 

TP 

KK56 

SY4 

Fill 3rd word 

23 

MJ 

0 

FS16 


24 

TP 

BS3 

A \ 

3rd word —>FSl6 

25 

EJ 

KK101 

FS16 J 


26 

MJ 

0 

FS14 

No —» FS14 


CA 

FS27 






(i) 

Delete Spaces 


IA 

DS 



0 

MJ 

0 

(30000) 

Exit 

1 

EJ 

CJ13 

DS3 

A —» DS3 

2 

MJ 

0 

DS 

No —» exit 

3 

TP 

KK57 

SY14 

Set A ind. 

4 

RJ 

GN 

GN1 

Get next char. 

5 

EJ 

KK60 

DS4 

A —> GN no | 

6 

MJ 

0 

DS 

Exit 


CA 

DS7 
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(j) Constants 


SY, BS, 


0 

IA 

0 

KKO 

0 

22 


1 

0 

0 

62 

£ 

2 

0 

0 

60 

3 

0 

0 

61 

\jk 

4 

0 

0 

40 


5 

0 

0 

20 


6 

0 

0 

41 


7 

0 

0 

35 

s£/ 

10 

0 

0 

55 


11 

0 

0 

75 


12 

0 

0 

36 

& 

13 

0 

0 

57 

Sg/ 

14 

0 

0 

00 


15 

0 

0 

15 

N/' 

16 

0 

0 

24 

A 

17 

0 

0 

25 

B 

20 

0 

0 

26 

C 

21 

0 

0 

27 

D 

22 

0 

0 

30 

E 

23 

0 

0 

31 

F 

24 

0 

0 

32 

G 

25 

0 

0 

33 

H 

26 

0 

0 

34 

I 

27 

0 

0 

44 

J 

30 

0 

0 

45 

K 

31 

0 

0 

46 

L 

32 

0 

0 

47 

M 

33 

0 

0 

50 

N 

34 

0 

0 

51 

0 

35 

0 

0 

52 

P 

36 

0 

0 

53 

Q 

37 

0 

0 

54 

R 

40 

0 

0 

65 

S 

41 

0 

0 

66 

T 

42 

0 

0 

67 

U 

43 

0 

0 

70 

V 

44 

0 

0 

71 

w 

45 

0 

0 

72 

X 

46 

0 

0 

73 

Y 

47 

0 

0 

74 

Z 

50 

0 

0 

02 


51 

0 

0 

14 


52 

0 

0 

77 



FS 


369 



53 

0 

0 

1 


54 

0 

0 

0 


55 

01 

22777 

77777 

A . 

56 

77 

77777 

77777 


57 

40 

0 

0 


60 

0 

0 

01 

A 

61 

0 

0 

63 

+ 

62 

0 

0 

02 

- 

63 

0 

0 

56 

* 

64 

0 

0 

64 

/ 

65 

0 

0 

23 

f 

66 

0 

0 

21 

t 

67 

0 

0 

42 

1 

70 

0 

0 

76 

— 

71 

0 

0 

16 

> 

72 

0 

0 

37 

< 

73 

0 

0 

17 

( 

74 

0 

0 

43 

) 

75 

0 

0 

21 

17 10 

76 

0 

0 

6 

77 

0 

0 

14 

12 io 

100 

0 

SY3 

SY3 

101 

0 

SY4 

SY4 


102 

0 

0 

44 


103 

0 

SY2 

SY2 


104 

0 

0 

03 



CA 

KK105 
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(k) Send File Back to CB list 



IA 

TD 



0 

MJ 

0 

(30000) 

Exit 

1 

L0 

TA31 

25 


2 

TV 

0 

TD6 


3 

TP 

TB6 

0 


4 

OS 

TA47 

TD5 


5 

RP 

(30000) 

TD 

1 Exit 

6 

TP 

IA2 

(30000) J 

1 File —» list 


CA 

TD7 






(1) Add 

File to CB List 


IA 

TE 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

TE4 

Start 

2 

0 

(30000) 

(30000) 

Next add. in CB list 

3 

0 

0 

0 

Ind. of prev. point 

4 

SP 

TE2 

0 1 

i Increase address 

5 

SA 

TF 

0 J 

r 

6 

TJ 

TB4 

TG 

OK —» TG no 1 

7 

TP 

TE3 

Q 1 

1 Prev. print—^exit 

10 

QJ 

TE 

TEH J 

1 No 1 

11 

RJ 

UZ 

UZl ] 


12 

TP 

WL1 

FH46 1 

F15 

13 

TP 

FH22 

UP3 1 


14 

RJ 

UP2 

DP J 

I 

15 

TP 

TB5 

TE3 

Set ind. 

16 

MJ 

0 

TE 

Exit 


CA 

TE17 




IA 

TG 



0 

TV 

TE2 

TG7 

Set 1st address 

1 

TP 

TB6 

Q 1 

l Set repeat 

2 

QS 

TF 

TG6 

1 

3 

TP 

CB 

A 1 

L Set CB for search 

4 

QA 

TF 

CB J 

[ 

5 

RA 

TE2 

TF 

Increase address 

6 

RP 

(30000) 

TE 1 

^ Exit 

7 

TP 

TFl 

(30000) J 

1 Send file to list 


CA 

TGlO 
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(m) Get File From CB List 


RJ TA TA1 

MJ 0 0 not in list 

M.J 0 0 in list 



IA 

TA 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

TA32 


2 

CA 

IA2 


Drum add. in u if from dim 

3 




XS3 of sym 

4 



( ) 

CW 

0 



1 

Format etc. 





> TA5 - TA31 

31 



J 



IA 

TA32 


Store address 

32 

TU 

CB 

TA34 

Set up repeat 

33 

TP 

SY2 

A 

Sym — >A 

34 

RP 

(20000) 

TA 

i Not in list —> exit 

35 

EJ 

CB1 

TA36 

1 In list F 

36 

LQ 

Q 

17 1 


37 

TP 

CB 

A 


40 

ST 

Q 

A 

< Set up address 

41 

AT 

TB2 

IA46 

[ 

42 

RS 

IA46 

TB3 j 


43 

TU 

IA46 

TA31 

Store address 

44 

RA 

TA 

TB1 

Set exit for "in list" 

45 

RP 

30004 

TA50 


46 

0 

0 

0 

TP CB-F- TA2 

47 

0 

(0) 

0 

No. words in file 

50 

TP 

TB7 

TA47 

No. words =4 

51 

TP 

TA4 

Q 1 

i 

1 

52 

QT 

TB10 

a ; 


53 

EJ 

TB10 

TA57 J 

1 CW = 77XXX — » TA57 

54 

QT 

TB11 

A 1 

L CW = 4XXXX —> TA64 

55 

EJ 

TB12 

IA64 J 

[ 

56 

MJ 

0 

TA 

Exit 

57 

TU 

TA46 

TA63 

77XXX 

60 

RA 

TA63 

TB7 

Set add. from CB list. 

61 

RA 

TA47 

TB14 

Count + 2 

62 

RP 

30002 

TA 1 

1 —► Exit 

63 

TP 

(30000) 

TA6 J 

1 2 more wds — > output 

64 

TU 

TA46 

TA70 

4XXXX 

65 

RA 

TA70 

TB7 


66 

RA 

TA47 

TB13 

Count + l9io 

67 

RP 

30023 

TA 1 


70 

TP 

(30000) 

TA6 J 

1 19^0 wore words —output 


CA 

TA71 
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Constants 


0 

IA 

RP 

IB 

0 

TA23 


1 

0 

0 

1 


2 

TP 

CB 

TA2 


3 

0 

1 

0 


4 

0 

CB6000 

CB6000 

Max. 

5 

40 

0 

0 

Ind. 

6 

0 

7777 

0 

Mask 

7 

0 

4 

0 


10 

0 

0 

77000 


11 

0 

0 

70000 


12 

0 

0 

40000 


13 

0 

23 

0 


14 

0 

2 

0 



CA 

IB15 
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(n) Get CW From Dummy P.0. List 


Y RJ TS TSl 

Y + 1 (not in list) 

Y + 2 (in list) 



IA 

TS 


0 

MJ 

0 

(30000) 

1 

MJ 

0 

TS5 

2 

0 

0 

0 

3 

0 

0 

(0) 

4 

0 

0 

0 

5 

TP 

TS4 

0 

6 

QJ 

TS7 

TS 

7 

TP 

SY2 

A 

10 

RP 

20132 

TS 

11 

EJ 

DP 

TS12 

12 

SP 

TS21 

0 

13 

SS 

0 

17 

14 

AT 

TS22 

TS17 

15 

RA 

TS 

TS20 

16 

RP 

30002 

TS 

17 

0 

0 

0 

20 

0 

0 

1 

21 

0 

0 

20131 

22 

TP 

DP 

TS2 


CA 

TS23 



Exit 

Start 

XS3 

CW 

Indicates within P.O. 
\ Not in P.O. —» exit 
/ in 

Sym —>k 

\ Not in list —>-exit 


in ^ 



Set exit for in list 
Exit 

File —> output 
J N - 1 
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Translation Variables 



IA 

VB 



0 

0 

0 

37700 

Next P.0 C.W. 

1 

77 

77777 

77776 

Next 66, 65, 64 C.W. 

2 

77 

77777 

77776 

Not used 

3 

77 

77777 

77776 

Next Dummy in Equation 

4 

77 

77777 

77776 

Next stm’t C.W. 26, 27 


CA 

VB5 




IA 

VD 



0 

0 

0 

0 

No. of STARTS 

1 

0 

0 

0 

EXIT indicator 

2 

0 

0 

0 

Index 

3 

TP 

KA1 

GN2 



CA 

VD4 




0 

0 

(0) 

Explanation 

(0) 

of Temporary Build File Area 

No. of words in file 

1 

0 

0 

0 

XS3 of symbol 

2 

0 

0 

(0) 

C.W. 


Words 

IF3 - IF27 

} Formats, etc. 
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(o) Call Word 


Translation List 



IA 

EW 


0 

MJ 

0 

(30000) 

1 

MJ 

0 

EW5 

2 

0 

0 

(0 ) 

3 

0 

(30000) (30000) 

4 

0 

0 

0 

5 

RA 

EW3 

CJ7 

6 

TJ 

CJ10 

EW17 

7 

TP 

EW4 

Q \ 

10 

QJ 

EW15 

EW11 J 

i i 

1 1 

n t 

IW 

III A 

WH 

III A 1 \ 

Hrtl | 

12 

TP 

FI 

UP3 J> 

13 

RJ 

UP2 

UP ) 

14 

TP 

CJ2 

EW4 

15 

RS 

EW3 

CJ7 

16 

MJ 

0 

EW 

17 

TV 

EW3 

EW20 'j 

20 

TP 

EW2 

(30000) > 

21 

MJ 

0 

EW J 


CA 

EW22 





(p) Increase 


IA 

TK 


0 

MJ 

0 

(30000) 

1 

MJ 

0 

TK3 

2 

0 

0 

0 

3 

TP 

VB1 

A \ 

4 

TJ 

CJ3 

TK16 J 

5 

TP 

TK2 

Q ) 

6 

QJ 

TK 

TK7 -> 

7 

RJ 

UZ 

UZ1 ^ 

10 

TP 

WLl 

FD43 

11 

TP 

SY2 

FD36 > 

12 

TP 

FD16 

UP3 

13 

RJ 

0P2 

UP J 

14 

TP 

CJ2 

IK 2 

15 

MJ 

0 

TK 

16 

RA 

VB1 

CJ1 

17 

MJ 

0 

TK 


CA 

TK20 



Exit 

Start 

C.W. 

Address of last C.W. 
Ind. one print-out 
Add + 1 

OK —EW17 no 4- 
Prev. print —> EW15 
No ^ 

F16 

Set bit 
Add - 1 
Exit 

CW —> string 
Exit 


66, 65 64 Call Word Counter 


Exit 
Start 
Indicator 
OK —> TK16 
No * 

Prev. Print—^exit 
No ^ 

Error 

F6 


Set ind. 
—> exit 
CW + 1 
Exit 


376 



(q) Increase Sentence C.W. Counter (Output-A or VB4,) 

26, 27, 22 



IA 

XJ 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

XJ4 

Start 

2 

0 

0 

0 

Indicator 

3 

0 

0 

777 

Constant 

4 

TP 

VB4 

A 1 

i OK —> XJ17 

5 

TJ 

XJ3 

XJ17 J 

[ No * 

6 

TP 

XJ2 

0 1 

i Prev. print 

7 

QJ 

XJ 

XJ10 J 

No * 

10 

RJ 

UZ 

UZ1 \ 

i Set error 

11 

TP 

WL1 

FD15 1 


12 

TP 

FD 

UP3 I 

f F5 

13 

RJ 

UP2 

UP J 

1 

14 

TP 

VB4 

A 

CW —*• A 

15 

TP 

CJ2 

XJ2 

Set ind. 

16 

MJ 

0 

XJ 

Exit 

17 

RA 

VB4 

CJ1 

CW + 1 —> A 

20 

MJ 

0 

XJ 

Exit 


CA 

XJ21 
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(r) Print Error Heading 

RJ WA WA1 Set Error 

WA2 Don’t Set Error 



IA 

WA 








0 

MJ 

0 

(30000) 

Exit 






1 

RJ 

UZ 

UZ1 

Set error 




2 

TP 

WL1 

WB3 

Line 

number 




3 

TP 

WL2 

A 







4 

TP 

A 

WB5 

Sentence 

type - 

—> 

A - 


5 

TP 

WB10 

WB6 

Fill 






6 

EJ 

WB15 

WA15 

E Q 

U 

A T 

N 



7 

EJ 

WB11 

WA16 

E Q 

U 

A T 

I 



10 

EJ 

WB16 

WA20 

C 0 

M 

P U 

T 



11 

EJ 

WB17 

WA22 

D I 

M 

E N 

S 



12 

TP 

WB 

UP3 \ 

Print 

heading 




13 

RJ 

UP2 

UP i 







14 

MJ 

0 

WA 

Exit 






15 

TP 

WB11 

WB5 \ 

Load 

E 

Q u 

A 

T 

I 

16 

TP 

WB12 

WB6 J 


0 

N 77 

77 

77 

77 

17 

MJ 

0 

WA12 







20 

TP 

WB13 

WB6 


E 

77 77 

77 

77 

77 

21 

MJ 

0 

WA12 







22 

TP 

WB14 

WB6 


I 

0 N 

77 

77 

77 

23 

MJ 

0 

WA12 








CA 

WA24 









Constants 



IA 

WB 








0 

0 

WB1 

7 







1 

65 

30506 

63050 

S 

E 

N 

T 

E 

N 

2 

26 

30010 

17777 

C 

E 

A 

A 

77 

77 

3 

0 

0 

0 

Line # 




4 

01 

01011 

77777 

A 

A 

A 

( 

77 

77 

5 

0 

0 

0 







6 

0 

0 

0 







7 

43 

01017 

77777 

) 

A 

A 

77 

77 

77 

10 

77 

77777 

77777 


77 

fill 



11 

30 

53672 

46634 

E 

Q 

U 

A 

T 

I 

12 

51 

50777 

77777 

0 

N 

77 

77 

77 

77 

13 

30 

77777 

77777 

E 

77 

77 

77 

77 

77 

14 

34 

51507 

77777 

I 

0 

N 

77 

77 

77 

15 

30 

53672 

46650 

E 

Q 

u 

A 

T 

N 

16 

26 

51475 

26766 

C 

0 

M 

P 

u 

T 

17 

27 

34473 

05065 

D 

I 

M 

E 

N 

S 


CA 

WB20 
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(s) Error Routine 



IA 

uz 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

UZ4 

Start 

2 

0 

0 

0 

No. of errors for entire project 

3 

0 

0 

0 

No. of errors this sentence 

4 

RA 

UZ2 

CJ1 

Errors + 1 

5 

TJ 

CJ14 

UZ13 

O.K. — » UZ13 no i 

6 

RJ 

RW 

RW1 

Rewind tape 

7 

TP 

WL1 

FB37 


10 

TP 

FB15 

UP3 > 

F4 

11 

RJ 

UP2 

UP j 


12 

MS 

0 

UZ 

Stop on exit 

13 

RA 

UZ3 

CJ1 

Too many errors ^ no—>exit 

14 

TJ 

CJ15 

UZ 

15 

RJ 

WA 

WA2 'i 


16 

TP 

FB 

UP3 > 

F3 

17 

RJ 

UP2 

UP J 


20 

TP 

UW 

UZ3 

Clear errors/sentence 

21 

MJ 

0 

CT 

—> Control 


CA 

UZ22 
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(t) Check Floating Point Constant 


0 

T A 

JLrt 

MJ 

RB 

0 

(30000) 

Exit 

1 

TP 

SY5 

A 

1 Start 

2 

TJ 

CJ4 

RB10 

1 No. of char. > 12 1 no — > 1 

3 

RJ 

WA 

WA1 ) 

1 

4 

RP 

30003 

RB6 


5 

TP 

SY2 

FE14 

> F7 

6 

TP 

FE 

UP3 

f 

7 

RJ 

UP2 

UP J 

} 

10 

TP 

SY6 

A 

L 

1 1 

T 1 7 

r 

DD1 *7 

1 TVT«« ITS 4- n 1 1. »« ^ TJ pi *7 

* 1W* pto ^ X Y I1U ^ IVJJX 1 

X JL 

4-0 

WOO 

IV UX 1 ^ 

12 

RJ 

WA 

WA1 

| 

13 

RP 

30003 

RB15 


14 

TP 

SY2 

FE27 

> F8 

15 

TP 

FE17 

UP3 


16 

RJ 

UP2 

UP 


17 

TP 

SY12 

Q ' 

^ Contains a letter ^ no -> exit 

20 

QJ 

RB21 

RB 

21 

RJ 

WA 

WA1 ' 

f 

22 

RP 

30003 

RB24 

i 

23 

TP 

SY2 

FF7 

S F9 

24 

TP 

FF 

UP3 


25 

RJ 

UP2 

UP J 


26 

MJ 

0 

RB 

Exit 


CA 

RB27 
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(u) Check Fixed-Point Constant 



IA 

RD 




0 

MJ 

0 

(30000) 

Exit 


1 

TP 

SY5 

A 1 

f No. of char. > 6 ^ 


2 

TJ 

CJ6 

RD10 J 

no —> RD10 

3 

RJ 

WA 

WA1 A 



4 

RP 

30003 

RD6 



5 

TP 

SY2 

FF25 

> F10 


6 

TP 

FF12 

UP3 



7 

RJ 

UP2 

UP 



10 

TP 

SY6 

A 1 

^ No. pts. > 0 | 

| 


11 

ZJ 

RD12 

RD16 J 

no —*■ RD16 

12 

RJ 

WA 

WA1 ] 


13 

TP 

SY2 

FGlO 

l 


14 

TP 

FG 

UP3 | 

> Fll 


15 

RJ 

UP2 

UP J 



16 

TP 

SY12 

Q 


\ no — > exit 

17 

QJ 

RD20 

RD J 

Contains letter 

20 

RJ 

WA 

WA1 \ 



21 

RP 

30003 

RD23 ! 



22 

TP 

SY2 

FF7 

} F9 


23 

TP 

FF 

UP3 



24 

RJ 

UP2 

UP 



25 

MJ 

0 

RD 

exit 



CA 

RD26 
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(v) Check Variable Type Symbol 



IA 

RH 



0 

MJ 

0 

(30000) 

Exit 

1 

TP 

SY5 

A 

L 

2 

TJ 

CJ6 

RH10 

1 No. of char, 

3 

RJ 

WA 

WA1 ' 

1 

4 

RP 

30003 

RH6 


5 

TP 

SY2 

FG24 

> F12 

6 

TP 

FG11 

UP3 

[ 

7 

RJ 

UP2 

UP ; 

1 

10 

TP 

SY6 

A 

t 

11 

ZJ 

RH12 

RH17 

1 Contains a ] 

<■ r* 

Li 

RJ 

1«T A 

WH 

WH± j 


13 

TP 

SY2 

FH10 ! 

> F13 

14 

TP 

FH 

UP3 


15 

RJ 

UP2 

UP J 


16 

MJ 

0 

RH 

Exit 

17 

TP 

SY2 

A 'j 


20 

RP 

20023 

RH22 


21 

EJ 

KB 

RH24 

> 

22 

RP 

20004 

RH | 


23 

EJ 

KB33 

RH24 J 

Key word | i 

24 

RJ 

WA 

WA1 \ 


25 

TP 

SY2 

WB20 1 

. F19 

26 

TP 

WB15 

UP3 j 


27 

RJ 

UP2 

UP J 


30 

MJ 

0 

RH 

Exit 


CA 

RH31 






(w) 

Constants 


IA 

CJ 



0 

0 

0 

0 

Zero 

1 

0 

0 

1 

One 

2 

40 

0 

0 

Indicator 

3 

0 

0 

777 


4 

0 

0 

15 

RCO 

5 

0 

0 

2 

RCl 

6 

0 

0 

7 

RC2 

7 

0 

1 

1 


10 

0 

WL250 

WL250 

Limit of st: 

11 

0 

0 

170 


12 

71 

0 

WL 

Write @0 ii 

13 

0 

0 

01 

A 

14 

0 

0 

31 

Errors/prog 

15 

0 

0 

5 

Errors/sent' 


CA 

CJ16 
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(x) Print Text 



IA 

UP 



0 

MJ 

0 

UP4 

Start 

1 

0 

30000 

(30000) 


2 

MJ 

0 

(30000) 

Exit 

3 

0 

(30000) 

(30000) 

Par. 

4 

TV 

UW15 

UQ 

1 Set up switch to UP 

5 

TV 

UQ3 

UQ4 

f 

6 

TP 

UW 

UW20 > 

I 

7 

TV 

UP3 

UW20 

1 Set up N counter 

10 

MP 

UW3 

UW20 , 


11 

TP 

A 

UW20 J 

1 

12 

TP 

UW13 

US 1 

l 6 char, word pick up 

13 

TU 

UP3 

US J 

i 

14 

PR 

0 

UW7 

Shift up 

15 

TP 

UP3 

0 

Par.—* Q 

16 

QJ 

US 

UP17 

00 1 40 —>US 

17 

TP 

UW4 

UW21 

Counter = 80^ 
l 4 cr*s 

20 

RP 

4 

US 1 

21 

PR 

0 

UW11 J 

r 


CA 

UP22 





IA 

UQ 




0 

RJ 

UQ 

(30000) 

DOWN 



1 

RJ 

UQ4 

US25 

Exit 



2 

PR 

0 

UW7 

Shift 

up 

Up-down 

3 

MJ 

0 

UQ5 



>■ switch 

4 

RJ 

UQ4 

(30000) 

UP 



5 

RJ 

UQ 

US25 

Exit 



6 

PR 

0 

UW10 

Shift 

down 


7 

MJ 

0 

UQ1 




CA 

UQ10 





0 

IA 

0 

US 

(30000) 

(30000) 

Six char, pick up 

1 

RA 

US 

UW2 

Modify pick up 

2 

TP 

UW5 

UW22 

Set up 5 count 

3 

IJ 

UW20 

US6 

N counter 

4 

PR 

0 

UW7 

Shift up 

5 

MJ 

0 

UP2 

Exit 

6 

LQ 

UW23 

6 

Unityper code —* Q 

7 

QT 

UW6 

UW16 

—► A —> UW16 
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10 

EJ 

UW1 

US34 

A — > US34 No \ 

11 

EJ 

UW6 

US36 

77 -> US36 

12 

TV 

US37 

US35 

Test for suppress 

13 

IJ 

UW21 

US21 

80 counter 

14 

TP 

UW17 

UW21 

Char, count = 66 1f . 

I CR. CR. 1 

15 

PR 

0 

UW11 

16 

PR 

0 

UW11 

r 

17 

RP 

23 

US12 1 

^ 19 spaces 

20 

PR 

0 

UW12 J 

21 

SP 

UW16 

17 

XS3 —> A u 

L 

22 

AT 

UW14 

US23 1 

23 

0 

(30000) 

(30000) J 

f Codes — >A shift 44, 

24 

SJ 

UQ 

UQ4 


25 

LA 

A 

3 1 

^ Codes —►position 

26 

SS 

A 

6 J 

27 

PR 

0 

A 1 

L Print codes 

30 

SS 

A 

6 J 

r 

31 

ZJ 

US27 

US32 

Loop 

32 

IJ 

UW22 

US3 

5 count 

33 

MJ 

0 

US 

-► new word 

34 

TP 

0W21 

A 1 

1 81st 1 no —► USl2 

35 

ZJ 

US12 

(TJS32) J 

1 Or—► US/oL 

36 

TV 

0S17 

US35) 

Print A's 

37 

MJ 

0 

US32 



CA 

US40 





IA 

uw 



0 

0 

0 

0 

Zero 

1 

0 

0 

1 

1 in V and A code 

2 

0 

1 

0 

1 in u 

3 

0 

0 

6 

6 

4 

0 

0 

120 

®°10 

5 counter 

5 

0 

0 

5 

6 

0 

0 

77 

Mask and 77 code 

7 

0 

0 

47 

Shift up 

10 

0 

0 

57 

Shift down 

11 

0 

0 

45 

Carriage return 

12 

0 

0 

4 

Space code 

13 

TP 

(30000) 

UW23 

Pick up dummy 

14 

SP 

FC 

44 

Flex pick up dummy 

15 

0 

0 

UQ6 

Set switch 

16 

0 

0 

0 

XS3 of char. 

17 

0 

0 

75 

6110 

20 

0 

30000 

30000 

N counter 

21 

0 

30000 

30000 

80 counter 

22 

0 

30000 

30000 

5 counter 

23 

0 

30000 

30000 

Work space 


CA 

UW24 
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(y) Sentence CW to Reference List IZ 



IA 

RA 



0 

MJ 

0 

(30000) 

Exit 

1 

TP 

WL1 

A 

Line no. —> A 

2 

TU 

11 

RA3 


3 

RP 

(20000) 

RA \ 

Not in list—^Exit 

4 

EJ 

IZ 

RA5 / 

In list 'l' 

5 

SN 

0 

17 


6 

SA 

11 

25 

11 = 0 j n n 

7 

LT 

0 

A 


10 

AT 

RA 13 

RA11 


11 

(0 

0 

0) 

Sentence CW —>list 

12 

MJ 

0 

RA 

—>Exit 

13 

TP 

WL3 

IZ 

Constant 


CA 

RA14 




(z) Rewind all tapes 



IA 

RW 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

RW10 

Start 

2 

20 

1 

0 

Parameter 

3 

20 

1 

0 

Set up parameter 

4 

0 

1 

0 

Modifier 

5 

0 

0 

0 

Index 

6 

0 

0 

4 \ 

Set index 

7 

0 

0 

2 J 


10 

TP 

RW3 

RW2 

Set parameter 

11 

TP 

RW6 

RW5 

Set index 

12 

TP 

TN 

A \ 

5 servos —^RW15 

13 

ZJ 

RW14 

RW15 J 

7 servos —*■ RW14 

14 

RA 

RW5 

RW7 

Increase index 

15 

TP 

RW2 

TH3 \ 

Rewind tapes 

16 

RJ 

TH2 

TH 1 


17 

RA 

RW2 

RW4 

Change parameter 

20 

IJ 

RW5 

RW15 

Return 

21 

MJ 

0 

RW 

Exit 


CA 

RW22 
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(aa) 1105 Tape Handler Regions 


TH21 

Control Region 

EX70 

Exit 

RW73 

Rewind 

IA100 

Ignore Address 

WB101 

Build Write Code 

WW113 

Write 

RR125 

Read Subroutine 

RE143 

Reread If Parity Error 

RF206 

Read Forward 

RB214 

Read Backward 

RW222 

Rewind Region (Redundant - Not Used) 

MF227 

Move Forward 

MB240 

Move Backward 

PC242 

Print 

WE263 

Constants 

CC274 

Constants 

CE334 

Constants 

CF352 

Constants 

CD365 

Constants 

VV375 

Temporaries 

CR402 

Check for Zero Blocks 
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(ab) 1105 Tape Handler 



IA 

TH 


0 

MJ 

20000 

TH4 

1 

MJ 

0 

TH10 

2 

MJ 

0 

(30000) 

3 

0 

30000 

30000 

4 

MJ 

50000 

TH4 

5 

TP 

CD2 

CD 

6 

EF 

0 

CC3 

7 

MJ 

0 

TH13 

10 

MJ 

40000 

TH10 

11 

TP 

CD1 

CD 

12 

EF 

0 

CC2 

13 

TP 

CC27 

Q 

14 

RP 

10005 

TH16 

15 

OS 

CD 

CD3 

16 

EF 

0 

CD5 

17 

TP 

TH3 

0 

20 

QT 

CE5 

A 

21 

LT 

41 

A 

22 

TP 

A 

VV2 

23 

AT 

CD 

VV 

24 

TV 

CE15 

IA 

25 

RJ 

CR5 

CR 

26 

QT 

CC4 

A 

27 

TP 

A 

A 

30 

EJ 

CC5 

RW 

31 

EJ 

CC6 

RW3 

32 

EJ 

CC7 

MF 

33 

EJ 

CC10 

MB 

34 

EJ 

CC11 

RF 

35 

EJ 

CC12 

RB 

36 

QT 

CC27 

A 

37 

EJ 

CC31 

WB 

40 

EJ 

CC32 

WB2 

41 

QT 

CC30 

A 

42 

EJ 

CC33 

WB4 

43 

EJ 

CC34 

WB6 

44 

EJ 

CC35 

WB10 

45 

RA 

W 

CC21 

46 

MJ 

0 

ww 


CA 

TH47 



Start - TCU2 
Start - TCU1 
Exit 

Parameter 
Test buffer 2 
Set TCU2 
Bypass buffer 2 

Test buffer 1 
Set TCU1 
Bypass buffer 1 

Set TCU bit in code words 

Set normal bias 

Servo no. VV2 

Servo no. and TCU bit—>-VV 


Set ignore address 
—>Test for zero blocks 
Op code —>A 

Rewind —>RW 
w/interlock —^RW3 
Move fwd -»MF 
Move bwd ->MB 
Read fwd -^RF 
Read bwd —^RB 
"A" —»A 
A = 2 
"A" = 4 
B —^A 
B = 1 
B = 2 
B = 3 
B = 0 
—*■ Write 
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Exit 



IA 

EX 



0 

TV 

CE15 

IA 

Set ignore 

1 

MJ 

0 

TH2 

Exit 

2 

0 

0 

RE 33 



CA 

EX 3 






Build Write Code Words 


IA 

WB 



0 

RA 

VV 

CC25 

A = 2 

1 

MJ 

0 

TH41 

—*B sec. 

2 

RA 

w 

CC26 

A = 4 

3 

MJ 

0 

TH41 

—sec. 

4 

RA 

VV 

CC22 

B = 1 

5 

MJ 

0 

WW 


6 

RA 

VV 

CC23 

B = 2 

7 

MJ 

0 

WW 


10 

RA 

w 

CC24 

B = 3 

11 

MJ 

0 

WW 



CA 

WB12 


Write 


IA 

WW 



0 

1 

RJ 

TP 

RE5 

CEll 

RE1 ) 

Q i 

[ Set index 

2 

QT 

VV3 

VV3 J 

1 

3 

TV 

TH3 

WW6 

Set address 

4 

EF 

0 

VV 

Start writing 

5 

RP 

10170 

WW7 1 

l Write block 

6 

EW 

10000 

(30000) J 

r 

7 

RA 

WN6 

CE12 

Add. + I70o 
No. of blocks 

10 

IJ 

VV3 

WW4 

11 

MJ 

0 

EX 

Exit 


CA 

WW12 
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Read Subroutine 



IA 

RR 


0 

MJ 

0 

(30000) 

1 

MJ 

0 

RR7 

2 

CC 

RR3 

CD2 

3 

0 

30000 

30000 

4 

CC 

VV 

CC36 

5 

CC 

RR12 

CD2 

6 

RJ 

RR6 

RR7 

7 

TP 

CC37 

VV4 

10 

EF 

0 

VV 

11 

ER 

10000 

(30000) 

12 

0 

(30000) 

(30000) 

13 

IJ 

VV4 

RR11 

14 

ER 

0 

A 

15 

MJ 

0 

RR 


CA 

RR16 



Exit 

Normal entrance 
Reread entrance 
RA (RS) RR11 CC1 
Reverse direction 
RA (RS) 

One shot exit 
Set index 
Start reading 
Read 

RA (RS) RR11 CC1 
One block 
I 0 A —>A 
Exit 


389 



Read Fwd (Bwd) 


0 

IA 

TV 

RE 

TH3 

RR11 

Set address 

1 

TP 

TH3 

0 ^ 


2 

QT 

CE4 

A 1 

I 

Index = No. of blocks - 1 

3 

SS 

CE6 

17 1 


4 

LT 

0 

VV3 J 

1 

5 

RJ 

RE5 

RE6 

Exit 

6 

RJ 

RR 

RR1 

Read blk fwd (bwd) (normal) 

7 

ZJ 

RE10 

RE41 

Parity 1 no—>RE37 

10 

RJ 

RR 

RR2 

Read bwd (fwd) (normal) 

11 

ZJ 

RE12 

RE32 

Parity i no—>RE3l 

12 

EF 

0 

CD6 

Set high 

13 

RJ 

RR 

RR2 

Read fwd (bwd) (high) 

14 

ZJ 

RE15 

RE40 

Parity ^ no—»RE36 

15 

RJ 

RR 

RR2 

Read bwd (fwd) (high) 

16 

ZJ 

RE17 

RE 32 

Parity 1 no—*RE3l 

17 

EF 

0 

CD7 

Set low 

20 

RJ 

RR 

RR2 

Read fwd (bwd) (low) 

21 

ZJ 

RE22 

RE40 

Parity no—>RE36 

22 

RJ 

RR 

RR2 

Read bwd (fwd) (low) 

23 

ZJ 

RE24 

RE 32 

Parity 1 no—»RE3l 

24 

TP 

CF 

PC2 1 

^ Print error 

25 

RJ 

PC 

PCI J 

26 

EF 

0 

CD5 

Set normal 

27 

RJ 

RR6 

RR2 

Set to read fwd (bwd) 

30 

TV 

EX 2 

IA 

Set ignore address 

31 

MS 

0 

RE6 

Stop for rereads 

32 

RJ 

RR6 

RR2 

Reverse direction 

33 

TV 

CE10 

IA 

Set ignore add. 

34 

TP 

VV2 

A 1 

[ 

35 

AT 

VV1 

A 

> Move fwd (bwd) 1 blk 

36 

EF 

0 

A J 

I 

37 

0 

30000 

30000 

RA (RS) RR11 CE12 

40 

EF 

0 

CD5 

Set normal 

41 

IJ 

VV3 

RE6 

No. blks. 

42 

MJ 

0 

EX 



CA 

RE43 





IA 

RF 


Read Fwd 

0 

RA 

VV 

CC17 

Set read fwd—^VV 

1 

TP 

CE1 

RR3 

) 

2 

TP 

CE1 

RR12 

1 Set for read fwd 

3 

TP 

CE2 

RE 37 

f 

4 

TP 

CD 3 

VV1 

j 

5 

MJ 

CA 

0 

RF6 

RE 

—>Read 
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Read Bwd 



IA 

RB 



0 

RA 

VV 

CC20 

Set read bwd—^-VV 

1 

TP 

CE 

RR3 ''! 


2 

TP 

CE 

RR12 1 

. Set for read bwd 

3 

TP 

CE3 

RE37 

r 

4 

TP 

CD4 

VV1 J 


5 

MJ 

0 

RE 

—»Read 


CA 

RB6 




Rewinds 


0 

IA 

RA 

RW 

W 

CC13 

Rewind 

1 

EF 

0 

VV 


2 

MJ 

0 

EX 

Exit 

3 

RA 

VV 

CC14 

Rewind w/interlock 

4 

MJ 

0 

RW1 



CA 

RW5 




Move Fwd 



IA 

MF 



0 

TO 

CE7 

MF4 

Set for fwd 

1 

RJ 

RE5 

REl 

Set index 

2 

TV 

CE7 

IA 

Set ignore address 

3 

EF 

0 

CD7 

Set low gain 

4 

TP 

(30000) 

A 

Set for fwd (bwd) 

5 

AT 

VV 

VV 

Set EF word 

6 

EF 

0 

VV 

Move 1 blk 

7 

IJ 

VV3 

MF6 

n blks 

10 

MJ 

0 

EX 

Exit 


CA 

MF11 







Move Bwd 


IA 

MB 



0 

TO 

CE10 

MF4 


1 

MJ 

0 

MFl 



CA 

MB2 
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Print Out 



IA 

PC 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

PC 16 

Start 

2 

0 

(30000) 

(30000) 

Par. = 0 address n 

3 

TP 

PC 2 

Q 1 


4 

QT 

CE13 

A45 J 

> Set index 

5 

ST 

CC1 

PC 20 J 


6 

IU 

PC2 

PC 7 

Set address 

7 

SP 

(30000) 

52 1 


10 

PR 

0 

A 1 

- * V 

Print one word 

11 

SS 

A 

6 f 

> 

12 

ZJ 

PC10 

PC13 J 


13 

RA 

PC7 

CE14 

Set for next word 

14 

IJ 

PC20 

PC7 

Finished I no —> PC7 

15 

MJ 

0 

PC 

Exit 

16 

RP 

4 

PC3 

4 crs. 

17 

PR 

0 

PC4 


20 

0 

0 

0 

Index 


CA 

PC21 




IA 

WE 



0 

TP 

WE3 

PC2 ) 

> "Can't ignore. Rerun 

1 

RJ 

PC 

PCI J 


2 

MS 

0 

IA 


3 

0 

WE4 

5 


4 

47 

16300 

60603 

t C A N N 0 

5 

01 

04141 

30603 

T A I G N 0 

6 

12 

20574 

20404 

R E ^ . A A 

7 

47 

12201 

23406 

t R E R U N 

10 

57 

42040 

40404 

* . A A A A 


CA 

WEI 1 




IA 

CC 



0 

0 

0 

0 

Zero 

1 

0 

0 

1 

One 

2 

0 

10000 

04000 

Bypass buff.1 

3 

0 

20000 

04000 

Bypass buff.2 

4 

70 

0 

0 

Mask off op. code 

5 

10 

0 

0 

Rewind 

6 

20 

0 

0 

Rewind w/interlock 

7 

30 

0 

0 

Move fwd 

10 

40 

0 

0 

Move bwd 

11 

50 

0 

0 

Read fwd 

12 

60 

0 

0 

Read bwd 

13 

0 

200 

0 

Rewind 

14 

0 

400 

0 

Rewind w/interlock 
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15 

0 

4 

1 

Move fwd 




16 

0 

14 

1 

Move bwd 




17 

0 

602 

0 

Read fwd 




20 

0 

612 

0 

Read bwd 




21 

0 

606 

0 

Write low and stop 

B = 0 

1" 

blk 

22 

0 

616 

0 

Write high 

B = 1 

1" 

blk 

23 

0 

706 

0 

Write low 

B = 2 

2.4 

blk 

24 

0 

716 

0 

Write high 

B = 3 

2.4 

blk 

25 

0 

20 

0 

A = 2 




26 

0 

40 

0 

A = 4 




27 

07 

0 

0 

Mask off A 




30 

0 

70000 

0 

Mask off B 




31 

02 

0 

0 

A = 2 




32 

04 

0 

0 

A = 4 




33 

0 

10000 

0 

B = 1 




34 

0 

20000 

0 

B = 2 




35 

0 

30000 

0 

B = 3 




36 

0 

10 

0 

To reverse read 




37 

0 

0 

167 

Set index 





CA 

CC40 
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Constants 



IA 

CE 






0 

RS 

RR11 

CC1 \ 

Set RR3 & RR12 


fwd 

1 

RA 

RR11 

CC1 J 




bwd 

2 

RA 

RR11 

CE12 \ 

Set RE34 



fwd 

3 

RS 

RR11 

CE12 J 




bwd 

4 

7 

77700 

0 

Mask no. of 

blocks 

(read) 

5 

0 

77 

0 

Mask off servo 

no. 


6 

0 

100 

0 

Subt. 1 from no. of 

blks. 

7 

0 

CC15 

MF7 





10 

0 

CC16 

RE 37 





11 

0 

0 

77 

Mask 




12 

0 

0 

170 

I2 V 

v mask 




13 

0 

0 

77777 




14 

0 

1 

0 

1 in u 




15 

0 

0 

WE 






CA 

CE16 







IA 

CF 






0 

0 

CF1 

12 





1 

47 

12203 

02204 

♦ R E A 

D 

A 


2 

20 

12120 

31204 

E R R 0 

R 

A 


3 

46 

15301 

21401 

(PAR 

I 

T 


4 

25 

04031 

20424 

Y A 0 R 

A 

S 


5 

15 

12031 

63620 

P R 0 C 

K 

E 


6 

01 

42574 

24704 

T ) | . 


A 


7 

04 

24013 

01201 

A S T A 

R 

T 


10 

04 

26031 

20412 

A F 0 R 

A 

R 


11 

20 

12203 

02224 

E R E A 

D 

S 


12 

57 

42040 

40404 

\ . A A 

A 

A 



CA 

CF13 







IA 

CD 






0 

0 

0 

0 

TCU bit 




1 

1 

0 

0 

Set TCU bit 

to 

1 


2 

2 

0 

0 

Set TCU bit 

to 

2 


3 

0 

4 

1 

Move fwd 1 

blk 



4 

0 

14 

1 

Move bwd 1 

blk 



5 

0 

1 

50000 

Set normal 




6 

0 

1 

60000 

Set high 




7 

0 

1 

70000 

Set low 





CA 

CD10 
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Variables 


IA VV 

0 0 0 0 

10 0 0 
2 0 0 0 

3 0 0 0 

4 0 0 0 

CA VV5 


EF code word 

Move fwd (bwd) 1 blk 

Tape no. 

Index (n blks) 

Index 1 blk 


Check for Zero Blocks 


0 

IA 

QT 

CR 

CR7 

A 

1 

TP 

A 

A 

2 

EJ 

CC4 

EX 

3 

QT 

CRlO 

A 

4 

TP 

A 

A 

5 

RP 

20004 

(30000) 

6 

EJ 

CC7 

EX 

7 

70 

07700 

0 

10 

77 

77700 

0 


CA 

CR11 
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(ac) Regions for 1103A Tape Handler 


TH21 

Control Region 

RR55 

Read Subroutine 

MB75 

Move Backward 

IA100 

Ignore Address 

WB101 

Build Write Code 

WW113 

Write 

RE125 

Set Index 

RA134 

Reread If Parity Error 

RF173 

Read Forward 

RB203 

Read Backward 

RW213 

Rewind 

MF220 

Move Forward 

PC231 

Print 

WE252 

Constants 

CF263 

Constants 

CC276 

Constants 

CE336 

Constants 

CD361 

Constants 

VV371 

Temporaries 

CR377 

Check for Zero Blocks 
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(ad) 1103A Tape Handler 



IA 

TH 


0 

MJ 

0 

TH4 

1 

TV 

CE15 

IA 

2 

MJ 

0 

(30000 

3 

0 

30000 

30000 

4 

MJ 

0 

TH5 

5 

TP 

TH3 

Q 

6 

QT 

CE5 

A 

7 

LT 

41 

A 

10 

TP 

A 

VV2 

11 

AT 

CO 

VV 

12 

TV 

CE15 

IA 

13 

RJ 

CR10 

CR 

14 

TP 

A 

A 

15 

EJ 

CC5 

RW 

16 

EJ 

CC6 

RW3 

17 

EJ 

CC7 

MF 

20 

EJ 

CC10 

MB 

21 

EJ 

CC11 

RF 

22 

EJ 

CC12 

RB 

23 

QT 

CC27 

A 

24 

EJ 

CC31 

WB 

25 

EJ 

CC32 

WB2 

26 

QT 

CC30 

A 

27 

EJ 

CC33 

WB4 

30 

EJ 

CC34 

WB6 

31 

EJ 

CC35 

WB10 

32 

RA 

VV 

CC21 

33 

MJ 

0 

ww 


CA 

TH34 



Start 

Set ignore address 
Exit 

Parameter 


Servo no. —> VV2 

Servo no. & tape bit —»VV 


Set ignore address 

—> Test for zero blocks 

Op. code — >A 

Rewind —»RW 

W/interlock —*RW3 

Move fwd —> MF 

Move bwd —*• MB 

Read fwd —> RF 

Read bwd —> RB 

"A" —» A 

A = 2 

A = 4 

"B" —>A 

B = 1 

B = 2 

B = 3 

B = 0 

—> Write 
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Build Write Codes 



IA 

wts 




0 

RA 

VV 

CC25 

"A" = 

2 

1 

MJ 

0 

TH26 

—> B 

sec. 

2 

RA 

VV 

CC26 

A = 4 


3 

MJ 

0 

TH26 

—> B 

sec. 

4 

RA 

VV 

CC22 

B = 1 


5 

MJ 

0 

ww 



6 

RA 

VV 

CC23 

B = 2 


7 

MJ 

0 

WW 



10 

RA 

VV 

CC24 

B = 3 


ii 

*r 

mu 

A 

u 

TiTIiT 

WW 




CA 

WB12 





0 

IA 

RJ 

WW 

RE 

RE1 'I 

Write 

I 

1 

TP 

CE11 

Q 

> Set index 

2 

QT 

VV 3 

VV3 J 

1 

3 

TV 

TH3 

WW6 


4 

EF 

0 

VV 

Start writing 

5 

RP 

10170 

WW7 1 

L 

6 

EW 

10000 

(30000) J 

I Write blk 

7 

RA 

WW6 

CE12 

Add + 170 

10 

IJ 

VV3 

WW4 

No. blks 

11 

MJ 

0 

TH1 

Exit 


CA 

WW12 
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Read Sub 



IA 

RR 



0 

MJ 

0 

(30000) 

Exit 

1 

MJ 

0 

RR7 

Start (normal entrance) 

2 

CC 

VV 

CC36 

Reverse direction 

3 

CC 

RR14 

CD2 

RA (RS) 

4 

CC 

RR5 

CD2 

RA (RS) 

5 

0 

(30000) 

(30000) 

RS (RA) VV5 CC37 

6 

RJ 

RR6 

RR7 

One shot 

7 

TV 

VV5 

RR13 

Set address 

10 

TV 

RR17 

IA 

Set ignore 

11 

TP 

CC37 

VV4 

Set index 

12 

EF 

0 

VV 

Start reading 

13 

ER 

10000 

(30000) 

Read 

14 

0 

(30000) 

(30000) 

RA (RS) RR13 CC1 

15 

IJ 

VV4 

RR13 

One block 

16 

ER 

0 

A 

I 0 A —*A 

17 

MJ 

0 

RR 

Exit 


CA 

RR20 





IA 

RE 


Index to VV3 

0 

MJ 

0 

(30000) 

Exit 

1 

TV 

TH3 

VV5 

Set address 

2 

TP 

TH3 

Q 1 

1 

3 

QT 

CE4 

A 1 

{ Index to W3 

4 

SS 

CE6 

17 1 


5 

LT 

0 

VV3 J 

1 

6 

MJ 

CA 

0 

RE 7 

RE 

Exit 


399 



Read Fwd. or Bwd. 



IA 

n a 




0 

RJ 

RR 

RR1 

Fwd (bwd) 

normal 

1 

ZJ 

RA2 

RA35 

Parity ^ no - 

RA35 

2 

RJ 

RR 

RR2 

Bwd (fwd) 

normal 

3 

ZJ 

RA4 

RA24 

Parity ^ no - 

—> RA24 

4 

EF 

0 

CD6 

Set high 


5 

RJ 

RR 

RR2 

Fwd (bwd) 

high 

6 

ZJ 

RA7 

RA35 

Parity 1 no 

—»RA35 

7 

RJ 

RR 

RR2 

Bwd (fwd) 

high 

10 

ZJ 

RA11 

RA24 

Parity ^ no 

—> RA24 

11 

EF 

A 

u 

OU 1 

Set low 


12 

RJ 

RR 

RR2 

Fwd (bwd) 

low 

13 

ZJ 

RA14 

RA35 

Parity ^ no 

— RA35 

14 

RJ 

RR 

RR2 

Bwd (fwd) 

low 

15 

ZJ 

RA16 

RA24 

Parity ^ no 

—»RA24 

16 

TP 

CF 

PC2 1 

L 


17 

RJ 

PC 

PCI J 

1 Print PARITY 

ERROR 

20 

EF 

0 

CD5 

Set normal 


21 

RJ 

RR6 

RR2 

Reverse direction 

22 

TV 

CE10 

IA 

Set ignore address \ 

23 

MS 

0 

RA 

Stop for rereads } 

24 

RJ 

RR6 

RR2 

Reverse direction J 

25 

TV 

CE20 

IA 

Set ignore 


26 

TP 

VV2 

A 1 

1 


27 

AT 

VV1 

A 

f Move fwd (bwd) 1 blk 

30 

EF 

0 

A J 

i 

J 

31 

0 

30000 

30000 

RA (RS) VV5 

CC1 x 

32 

EF 

0 

CD5 

Set normal 


33 

IJ 

VV3 

RA 

H blks 


34 

MJ 

0 

TH1 

Exit 


35 

0 

30000 

30000 

RA (RS) VV5 

CE12 

36 

MJ 

0 

RA32 




CA 

RA37 





400 



Read Fwd 



IA 

RF 





0 

RJ 

RE 

RE1 


Set 

index and address 

1 

TP 

CE21 

RR5 

\ 



2 

TP 

CE 

RR14 




3 

TP 

CE2 

RA31 


I Set 

for fwd. 

4 

TP 

CE16 

RA35 


> 


5 

TP 

CD3 

VV1 




6 

RA 

VV 

CC17 




7 

MJ 

0 

RA 





CA 

RF10 






Read Bwd. 



IA 

RB 





0 

RJ 

RE 

RE1 


Set 

index and address 

1 

TP 

CE22 

RR5 

\ 



2 

TP 

CE1 

RR14 




3 

TP 

CE3 

RA31 


l Set 

for bwd. 

4 

TP 

CE17 

RA35 


? 


5 

TP 

CD4 

VV1 




6 

RA 

VV 

CC20 

> 



7 

MJ 

0 

RA 





CA 

RB10 






401 



Rewinds 


0 

IA 

RA 

RW 

VV 

CC13 

Rewind 

1 

EF 

0 

VV 


2 

MJ 

0 

TH1 

Exit 

3 

RA 

VV 

CC14 

Rewind with interlock 

4 

MJ 

0 

RW1 



CA 

RW5 





IA 

MF 


Move Fwd. 

0 

TU 

CE7 

MF4 

Set for fwd. 

1 

RJ 

RE 

RE1 

Set index 

2 

TV 

CE7 

IA 

Set ignore address 

3 

MJ 

0 

MF4 


4 

TP 

(30000) 

A 

Set for fwd (bwd) 

5 

AT 

VV 

VV 

Set EF wd. 

6 

EF 

0 

VV 

Move 1 blk 

7 

IJ 

VV3 

MF6 

m blks 

10 

MJ 

CA 

0 

MF11 

TH1 

Exit 





Move Bwd. 

IA 

MB 



0 TU 

CE10 

MF4 

Set for bwd. 

1 MJ 

0 

MF1 

—> move fwd. 

CA 

MB2 




402 



Print Sub 



IA 

PC 








0 

MJ 

0 

(30000) 

Exit 






1 

MJ 

0 

PC16 

Start 






2 

0 

30000 

30000 

Par. = 

0 

address 

n 

3 

TP 

PC2 

Q 1 







4 

QT 

CE13 

A45 

? Set index 




5 

ST 

CC1 

PC20 J 

i 






6 

IU 

PC2 

PC7 

Set address 




7 

SP 

30000 

52 1 

i 






10 

PR 

0 

A 1 

1 Print 

one word 



11 

SS 

A 

6 1 







12 

ZJ 

PC10 

PC13 J 

I 






13 

RA 

PC7 

CE14 

Next i 

word 




14 

IJ 

PC20 

PC7 

Finished 

1 

no 

—> PC 7 

15 

MJ 

0 

PC 

Exit 






16 

RP 

4 

PC3 







17 

PR 

0 

PC4 







20 

0 

0 

0 

Index 







CA 

PC21 









IA 

WE 








0 

TP 

WE3 

PC 2 1 

L "Cannot 

ignore 


Rerun" 

1 

RJ 

PC 

PCI J 

1 






2 

MS 

0 

IA 







3 

0 

WE4 

5 







4 

47 

16300 

60603 

t C 

A 

N 

N 

0 


5 

01 

04141 

30603 

T A 

I 

G 

N 

0 


6 

12 

20574 

20404 

R E 


• 

A 

A 


7 

47 

12201 

23406 

t R 

E 

R 

U 

N 


10 

57 

42040 

40404 

1 . 

A 

A 

A 

A 



CA 

WEI 1 









IA 

CF 








0 

0 

CF1 

12 







1 

47 

12203 

02204 

t R 

E 

A 

D 

A 


2 

20 

12120 

31204 

E R 

R 

0 

R 

A 


3 

46 

15301 

21401 

( P 

A 

R 

I 

T 


4 

25 

04031 

20424 

Y A 

0 

R 

A 

S 


5 

15 

12031 

63620 

P R 

0 

C 

K 

E 


6 

01 

42574 

24704 

T ) 




A 


7 

04 

24013 

01201 

A S 

T 

A 

R 

T 


10 

04 

26031 

20412 

A F 

0 

R 

A 

R 


11 

20 

12203 

02224 

E R 

E 

A 

D 

S 


12 

57 

42040 

40404 

1 . 

A 

A 

A 

A 



CA 

CF13 









403 



IA CC 


0 

0 

0 

0 

Zero 


1 

0 

0 

1 

One 


2 

0 

10000 

04000 

Bypass no. 1 


3 

0 

20000 

04000 

Bypass no. 2 


4 

70 

0 

0 

Mask off op. code 


5 

10 

0 

0 

Rewind 


6 

20 

0 

0 

Rewind with interlock 


7 

30 

0 

0 

Move fwd 


10 

40 

0 

0 

Move bwd 


11 

50 

0 

0 

Read fwd 


12 

60 

0 

0 

Read bwd 


13 

0 

200 

0 

Rewind 


14 

0 

400 

0 

Rewind with interlock 


15 

0 

4 

1 

Move fwd 


16 

0 

14 

1 

Move bwd 


17 

0 

602 

0 

Read fwd 


20 

0 

612 

0 

Read bwd 


21 

0 

606 

0 

Write low and stop B = 0 1” 

blk 

22 

0 

616 

0 

Write high B = 1 1" 

blk 

23 

0 

706 

0 

Write low B = 2 2.4" 

blk 

24 

0 

716 

0 

Write high B = 3 2.4" 

blk 

25 

0 

20 

0 

A = 2 


26 

0 

40 

0 

A = 4 


27 

07 

0 

0 

Mask off A 


30 

0 

70000 

0 

Mask off B 


31 

02 

0 

0 

A = 2 


32 

04 

0 

0 

A = 4 


33 

0 

10000 

0 

B = 1 


34 

0 

20000 

0 

B = 2 


35 

0 

30000 

0 

B = 3 


36 

0 

10 

0 

To reverse read 


37 

0 

0 

167 

Set index 



CA 

CC40 





IA 

CE 




0 

RA 

RR13 

CC1 1 

„ Set RR14 fwd 


1 

RS 

RR13 

CC1 J 

bwd 


2 

RA 

VV5 

CC1 ) 

„ Set RA31 fwd 


3 

RS 

VV5 

CC1 J 

bwd 


4 

7 

77700 

0 

Mask no. blks (read) 


5 

0 

77 

0 

Mask servo no. 


6 

0 

100 

0 

No. of blks - 1 subtractor 


7 

0 

CC15 

MF7 



10 

0 

CC16 

RA25 



11 

0 

0 

77 

Mask 


12 

0 

0 

170 

120 10. 
v mask 


13 

0 

0 

77777 


14 

0 

1 

0 

1 in u 


15 

0 

0 

WE 



16 

RA 

VV5 

CE12 ' 

l Set RA35 fwd 


17 

RS 

VV5 

CE12 

f bwd 


20 

0 

0 

RA31 



21 

RS 

VV5 

CC37 1 

l Set RR5 fwd 


22 

RA 

VV5 

CC37 J 

i bwd 



CA 

CE23 





404 



Tape bit 


1 1 

2 2 


0 

0 

0 

1 

1 

50000 

60000 

70000 


Move fwd 1 blk 
Move bwd 1 blk 
Set normal 
High 
Low 


Don't Punch Variables 


IA VV 
0 0 0 

1 0 0 


EF code word 

Move fwd Cbwd) 1 blk (read) 
Tape no. 

Index (n blks) 

Index 1 blk 
Address 



CA 

W6 

C] 


TA 

CR 


0 

QT 

CR11 

A 

1 

TP 

A 

A 

2 

EJ 

CC4 

TH1 

3 

QT 

CR12 

A 

4 

TP 

A 

A 

5 

RP 

20004 

CR7 

6 

EJ 

CC7 

THl 

7 

QT 

CC4 

A 

10 

MJ 

0 

30000 

11 

70 

07700 

0 

12 

77 

77700 

0 


CA 

CR13 



Check for Zero Blocks 


405 



(ae) 


Error Prints of Translation Subroutines 



IA 

FA 








0 

0 

FA1 

24 







1 

65 

30506 

63050 

S 

E 

N 

T 

E 

N 

2 

26 

30017 

77777 

C 

E 

A 

77 

77 

77 

3 

0 

0 

0 

Line 

no. 




4 

01 

01253 

03151 

A 

A 

B 

E 

F 

0 

5 

54 

30016 

56624 

R 

E 

A 

S 

T 

A 

6 

54 

66210 

12530 

R 

T 

t 

A 

B 

E 

7 

32 

34506 

50171 

G 

I 

N 

S 

A 

W 

10 

34 

66330 

12401 

I 

T 

H 

A 

A 

A 

11 

45 

30730 

17151 

K 

E 

Y 

A 

W 

0 

12 

54 

27010 

10117 

R 

D 

A 

A 

A 

( 

13 

0 

0 

0 



Key 

word 


14 

43 

22010 

15430 

) 


A 

A 

R 

E 

15 

65 

66010 

10101 

S 

T 

A 

A 

A 

A 

16 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

17 

01 

01010 

10151 

A 

A 

A 

A 

A 

0 

20 

31 

01663 

33465 

F 

A 

T 

H 

I 

S 

21 

01 

65305 

06630 

A 

S 

E 

N 

T 

E 

22 

50 

26300 

15051 

N 

C 

E 

A 

N 

0 

23 

66 

01263 

33026 

T 

A 

C 

H 

E 

C 

24 

45 

30272 

27777 

K 

E 

D 

, 

77 

77 

25 

0 

FA26 

26 







26 

65 

30506 

63050 

S 

E 

N 

T 

E 

N 

27 

26 

30017 

77777 

C 

E 

A 

77 

77 

77 

30 

0 

0 

0 



Line i 

no. 


31 

01 

31345 

46566 

A 

F 

i 

R 

S 

T 

32 

01 

65734 

72551 

A 

S 

Y 

M 

B 

0 

33 

46 

21017 

77777 

L 

? 

A 

77 

77 

77 

34 

0 

0 

0 



sym, 




35 

01 

21012 

75130 

A 

t 

A 

D 

0 

E 

36 

65 

01505 

16601 

S 

A 

N 

0 

T 

A 

37 

34 

50273 

42624 

I 

N 

D 

I 

C 

A 

40 

66 

30014 

63032 

T 

E 

A 

L 

E 

G 

41 

24 

46016 

75034 

A 

L 

A 

U 

N 

I 

42 

26 

51273 

00165 

C 

0 

D 

E 

A 

S 

43 

30 

50663 

05026 

E 

N 

T 

E 

N 

C 

44 

30 

22010 

10101 

E 

, 

A 

A 

A 

A 

45 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

46 

54 

30656 

60151 

R 

E 

S 

T 

A 

0 

47 

31 

01663 

33465 

F 

A 

T 

H 

I 

S 

50 

01 

65305 

06630 

A 

S 

E 

N 

T 

E 

51 

50 

26300 

15051 

N 

C 

E 

A 

N 

0 

52 

66 

01263 

33026 

T 

A 

C 

H 

E 

C 

53 

45 

30272 

27777 

K 

E 

D 

. 

77 

77 


CA 

FA54 









406 



F3 



IA 

FB 








0 

40 

FBI 

14 







1 

47 

51543 

00166 

M 

0 

R 

E 

A 

T 

2 

33 

24500 

11001 

H 

A 

N 

A 

5 

A 

3 

30 

54545 

15465 

E 

R 

R 

0 

R 

S 

4 

22 

01015 

43065 

# 

A 

A 

R 

E 

S 

5 

66 

01513 

10166 

T 

A 

0 

F 

A 

T 

6 

33 

34650 

16530 

H 

I 

S 

A 

S 

E 

7 

50 

66305 

02630 

N 

T 

E 

N 

C 

E 

10 

01 

50516 

60101 

A 

N 

0 

T 

A 

A 

11 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

12 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

13 

26 

33302 

64530 

C 

H 

E 

C 

K 

E 

14 

27 

22777 

77777 

D 

* 

77 

77 

77 

77 

15 

0 

FB16 

22 







16 

47 

51543 

00166 

M 

0 

R 

E 

A 

T 

17 

33 

24500 

10510 

H 

A 

N 

A 

2 

5 

20 

01 

30545 

45154 

A 

E 

R 

R 

0 

R 

21 

65 

01663 

33465 

S 

A 

T 

H 

I 

S 

22 

01 

52545 

13254 

A 

P 

R 

0 

G 

R 

23 

24 

47220 

10154 

A 

M 


A 

A 

R 

24 

30 

54302 

42701 

E 

R 

E 

A 

D 

A 

25 

65 

52302 

63431 

S 

P 

E 

C 

I 

F 

26 

34 

26246 

63451 

I 

C 

A 

T 

I 

0 

27 

50 

65220 

10152 

N 

S 

. 

A 

A 

P 

30 

54 

51325 

42447 

R 

0 

G 

R 

A 

M 

31 

01 

50516 

60126 

A 

N 

0 

T 

A 

C 

32 

33 

30244 

53027 

H 

E 

C 

K 

E 

D 

33 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

34 

25 

30735 

15027 

B 

E 

Y 

0 

N 

D 

35 

01 

65305 

06630 

A 

S 

E 

N 

T 

E 

36 

50 

26300 

17777 

N 

C 

E 

A 

77 

77 

37 

0 

0 

0 


line 

no 




CA 

FB40 









IA 

FD 








0 

0 

FD1 

15 







1 

47 

51543 

00166 

M 

0 

R 

E 

A 

T 

2 

33 

24500 

11004 

H 

A 

N 

A 

5 

1 

3 

05 

01653 

05066 

2 

A 

S 

E 

N 

T 

4 

30 

50263 

06501 

E 

N 

C 

E 

S 

A 

5 

34 

50016 

63334 

I 

N 

A 

T 

H 

I 

6 

65 

01525 

45132 

S 

A 

P 

R 

0 

G 

7 

54 

24472 

20101 

R 

A 

M 


A 

A 

10 

10 

04066 

63301 

5 

1 

3 

T 

H 

A 

11 

65 

30506 

63050 

S 

E 

N 

T 

E 

N 

12 

26 

30015 

06747 

c 

E 

A 

N 

U 

M 

13 

25 

30540 

13465 

B 

E 

R 

A 

I 

S 

14 

01 

77777 

77777 

A 

77 

77 

77 

77 

77 

15 

0 

0 

0 



Line no. 



407 



16 

0 

FD17 

25 







17 

50 

67472 

53054 

N 

U 

M 

B 

E 

R 

20 

01 

51310 

16750 

A 

0 

F 

A 

U 

N 

21 

65 

67256 

52654 

S 

u 

B 

S 

C 

R 

22 

34 

52663 

02701 

I 

p 

T 

E 

D 

A 

23 

70 

24543 

42425 
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I 
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B 

24 

46 

30650 

16301 

L 

E 

S 

A 

+ 

A 

25 

31 

67502 

66634 

F 

U 

N 

C 

T 

I 

26 

51 

50650 

13465 

0 

N 

S 

A 

I 

S 

27 

01 

32543 

02466 

A 

G 

R 

E 

A 

I 

30 

30 

54016 

63324 

E 

R 

A 

T 

H 

A 

31 

50 

01100 

40522 

N 

A 

5 

1 

2 

. 

32 

01 

01100 

40666 

A 

A 

5 

1 

3 

T 

33 

33 

01657 

34725 

H 

A 

S 

Y 

M 

B 

34 

51 

46010 

10101 

0 

L 

A 

A 

A 

A 

35 

34 

65017 

77777 

I 

S 

A 

77 

77 

77 

36 

0 

0 

0 



Sym 




37 

22 

01017 

15154 


A 

A 

W 

0 

R 

40 

45 

34503 

20151 

K 

I 

N 

G 
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0 

41 

50 

01653 

05066 

N 

A 

S 

E 

N 

T 

42 

30 

50263 

00177 

E 

N 

C 

E 

A 

77 

43 

0 

0 

0 



Sent. no. 



CA 

FD44 









IA 

FE 








0 

40 

FEl 

16 







1 

47 

51543 

00166 

M 

0 

R 

E 

A 

T 

2 

33 

24500 

10405 

H 

A 

N 

A 

1 

2 

3 

01 

26332 

45424 

A 

C 

H 

A 

R 

A 

4 

26 

66305 

46501 

C 

T 

E 

R 

S 

A 

5 

34 

50013 

14651 

I 

N 

A 

F 

L 

0 

6 

24 

66345 

03201 

A 

T 

I 

N 

G 

A 

7 

52 

51345 

06601 

P 

0 

I 

N 

T 

A 

10 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

11 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

12 

01 

01265 

15065 

A 

A 

C 

0 

N 

S 

13 

66 

24506 

62201 

T 

A 

N 

T 

• 

A 

14 

0 

0 

0 1 







15 

0 

0 

0 r 


Constant 



16 

0 

0 

0 j 







17 

40 

FE20 

12 







20 

47 

51543 

00166 

M 

0 

R 

E 

A 

T 

21 

33 

24500 

15150 

H 

A 

N 

A 

0 

N 

22 

30 

01273 

02634 

E 

A 

D 

E 

C 

I 

23 

47 

24460 

15251 

M 

A 

L 

A 

P 

0 

24 

34 

50660 

13450 

I 

N 

T 

A 

r 

N 

25 

01 

26515 

06566 

A 

C 

0 

N 

s 

T 

26 

24 

50662 

20101 

A 

N 

T 


A 

A 

27 

0 

0 

0 1 







30 

0 

0 

0 \ 


Constant 



31 

0 

0 

0 / 








CA FE32 


408 



F9 


FlO 



IA 

FF 








0 

40 

FF1 

11 







1 

24 

65656 

74730 

A 

S 

S 

U 

M 

E 

2 

27 

01265 

15065 

D 

A 

C 

0 

N 

S 

3 

66 

24506 

60126 

T 

A 

N 

T 

A 

C 

4 

51 

50662 

43450 

0 

N 

X 

A 

I 

N 

5 

65 

01240 

14630 

S 

A 

A 

A 

L 

E 

6 

66 

66305 

42201 

T 

T 

E 

R 


A 

7 

0 

0 

0 1 







10 

0 

0 

0 \ 


Constant 


11 

0 

0 

0 / 







12 

40 

FF13 

15 







13 

47 

51543 

00166 

M 

0 

R 

E 

A 

T 

14 

33 

24500 

11101 

H 

A 

N 

A 

6 

A 

15 

26 

33245 

42426 

C 

H 

A 

R 

A 

C 

16 

66 

30546 

50134 

T 

E 

R 

S 

A 

I 

17 

50 

01313 

47230 

N 

A 

F 

I 

X 

E 

20 

27 

01525 

13450 

D 

A 

P 

0 

I 

N 

21 

66 

01265 

15065 

T 

A 

C 

0 

N 

S 

22 

66 

24506 

62201 

T 

A 

N 

T 


A 

23 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

24 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

25 

0 

0 

0 1 







26 

0 

0 

0 r 


Constant 


27 

0 

0 

0 J 








CA FF30 


409 




irt 

f yj 








0 

40 

FG1 

10 







1 

24 

01273 

02634 

A 

A 

D 

E 

C 

I 

2 

47 

24460 

15251 

M 

A 

L 

A 

P 

0 

3 

34 

50660 

13450 

I 

N 

T 

A 

I 

N 

4 

01 

31347 

23027 

A 

F 

I 

X 

E 

D 

5 

01 

52513 

45066 

A 

P 

0 

I 

N 

T 

6 

01 

26515 

06566 

A 

C 

0 

N 

S 

T 

7 

24 

50662 

20101 

A 

N 

T 


A 

A 

10 

0 

0 

0 


Constant 


1 1 

1 1 

40 

T?r i o 

lUiL 

15 







12 

47 

51543 

00166 

M 

0 

R 

E 

A 

T 

13 

33 

24500 

11101 

H 

A 

N 

A 

6 

A 

14 

26 

33245 

42426 

C 

H 

A 

R 

A 

C 

15 

66 

30546 

50134 

T 

E 

R 

S 

A 

I 

16 

50 

01702 

45434 

N 

A 

V 

A 

R 

I 

17 

24 

25463 

00166 

A 

B 

L 

E 

A 

T 

20 

73 

52300 

16573 

Y 

P 

E 

A 

S 

Y 

21 

47 

25514 

62201 

M 

B 

0 

L 

* 

A 

22 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

23 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

24 

0 

0 

0 1 







25 

0 

0 

0 r 


Symbol 



26 

0 

0 

0 J 








CA FG27 


410 



F13 



IA 

FH 








0 

40 

FH1 

10 







1 

70 

24543 

42425 

V 

A 

R 

I 

A 

B 

2 

46 

30016 

67352 

L 

E 

A 

T 

Y 

P 

3 

30 

01657 

34725 

E 

A 

S 

Y 

M 

B 

4 

51 

46012 

65150 

0 

L 

A 

C 

0 

N 

5 

66 

24345 

06501 

T 

A 

I 

N 

S 

A 

6 

24 

01525 

13450 

A 

A 

P 

0 

I 

N 

7 

66 

22010 

17777 

T 


A 

A 

77 

77 

10 

0 

0 

0 


Symbo1 



11 

0 

FH12 

10 







12 

50 

51016 

53050 

N 

0 

A 

S 

E 

N 

13 

66 

30502 

63001 

X 

E 

N 

C 

E 

A 

14 

50 

67472 

53054 

N 

U 

M 

B 

E 

R 

15 

01 

51500 

16530 

A 

0 

N 

A 

S 

E 

16 

50 

66305 

02630 

N 

T 

E 

N 

C 

E 

17 

01 

31514 

64651 

A 

F 

0 

L 

L 

0 

20 

71 

34503 

20101 

W 

I 

N 

G 

A 

A 

21 

0 

0 

0 


Line 

no 



22 

0 

FH23 

24 







23 

46 

34656 

60151 

L 

I 

S 

T 

A 

0 

24 

31 

01702 

45434 

F 

A 

V 

A 

R 

I 

25 

24 

25463 

06521 

A 

B 

L 

E 

S 

t 

26 

01 

46342 

55424 

A 

L 

I 

B 

R 

A 

27 

54 

73015 

45167 

R 

Y 

A 

R 

0 

U 

30 

66 

34503 

06521 

T 

I 

N 

E 

S 

f 

31 

01 

31675 

02666 

A 

F 

U 

N 

C 

T 

32 

34 

51506 

50124 

I 

0 

N 

S 

A 

A 

33 

50 

27015 

26530 

N 

D 

A 

P 

S 

E 

34 

67 

27510 

15152 

U 

D 

0 

A 

0 

P 

35 

30 

54246 

63451 

E 

R 

A 

T 

I 

0 

36 

50 

65013 

32465 

N 

S 

A 

H 

A 

S 

37 

01 

25302 

65147 

A 

B 

E 

C 

0 

M 

40 

30 

01010 

16651 

E 

A 

A 

A 

T 

0 

41 

51 

01465 

15032 

0 

A 

L 

0 

N 

G 

42 

22 

01017 

15154 


A 

A 

W 

0 

R 

43 

45 

34503 

20151 

K 

I 

N 

G 

A 

0 

44 

50 

01653 

05066 

N 

A 

S 

E 

N 

T 

45 

30 

50263 

00177 

E 

N 

C 

E 

A 

77 

46 

0 

0 

0 


Line 

no 

• 



CA 

FH47 









411 



F16 



TA 

An 

FI 








0 

40 

FIl 

3 







1 

66 

51510 

14724 

T 

0 

0 

A 

M 

A 

2 

50 

73016 

57347 

N 

Y 

A 

S 

Y 

M 

3 

25 

51466 

52277 

B 

0 

L. 

S 

_ 

77 

4 

40 

FI5 

5 







5 

50 

51013 

05027 

N 

0 

A 

E 

N 

D 

6 

01 

51310 

16530 

A 

0 

F 

A 

S 

E 

7 

50 

66305 

02630 

N 

T 

E 

N 

C 

E 

10 

01 

65734 

72551 

A 

S 

Y 

M 

B 

0 

11 

46 

99777 

77777 

L 


77 

77 

77 

77 

12 

40 

FI13 

14 







13 

34 

50265 

15454 

i 

N 

c 

0 

R 

R 

14 

30 

26660 

16573 

E 

C 

T 

A 

S 

Y 

15 

47 

25514 

60165 

M 

B 

0 

L 

A 

S 

16 

30 

53673 

05026 

E 

Q 

U 

E 

N 

C 

17 

30 

22010 

10177 

E 


A 

A 

A 

77 

20 

0 

0 

0 1 

i 






21 

0 

0 

o , 


1st 

sym. 


22 

0 

0 

0 J 

1 






23 

01 

01777 

77777 

A 

A 

77 

77 

77 

77 

24 

0 

0 

0 1 

1 






25 

0 

0 

0 


2nd sym. 



26 

0 

0 

o J 

1 
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F19 



IA 

NO 








0 

40 

NO 1 

7 







1 

45 

30730 

17151 

K 

E 

Y 

A 

W 

0 

2 

54 

27210 

17777 

R 

D 

t 

A 

77 

77 

3 

0 

0 

0 


Word 




4 

01 

21016 

76530 

A 

t 

A 

U 

S 

E 

5 

27 

01246 

50124 

D 

A 

A 

S 

A 

A 

6 

01 

70245 

43424 

A 

V 

A 

R 

I 

A 

7 

25 

46302 

27777 

B 

L 

E 

a 

77 

77 

10 

40 

NO 11 

17 







11 

27 

34473 

05065 

D 

I 

M 

E 

N 

S 

12 

34 

51500 

16530 

I 

0 

N 

A 

S 

E 

13 

50 

66305 

02630 

N 

T 

E 

N 

C 

E 

14 

21 

01343 

10134 

» 

A 

I 

F 

A 

I 

15 

66 

01245 

25230 

T 

A 

A 

P 

P 

E 

16 

24 

54652 

10147 

A 

R 

S 

f 

A 

M 

17 

67 

65660 

12530 

U 

S 

T 

A 

B 

E 

20 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

21 

31 

34546 

56622 

F 

I 

R 

S 

T 

• 

22 

01 

01543 

06566 

A 

A 

R 

E 

S 

I 

23 

01 

51310 

16633 

A 

0 

F 

A 

T 

H 

24 

34 

65016 

53050 

I 

S 

A 

S 

E 

N 

25 

66 

30502 

63001 

T 

E 

N 

C 

E 

A 

26 

50 

51660 

12633 

N 

0 

T 

A 

C 

H 

27 

30 

26453 

02722 

E 

C 

K 

E 

D 



CA 

NO 30 
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(af) 

Set TN 

for Five or Seven Uniservos 



IA 

OT 




0 

MJ 

0 

30000 

Exit 


1 

MJ 

lOOOO 

0T4 

Entry. Jump to 0T4 if MJl 

is set. 

2 

TP 

0T7 

TN 

Puts zero into TN when MJl 

is not set 

3 

MJ 

0 

OT 



4 

TP 

0T6 

TN 

Puts 030 into TN when MJl 

is set. 

5 

MJ 

0 

OT 



6 

0 

3 

0 



7 

0 

0 

0 




CA 

0T10 





TA 

TN 





0 

0 

0 




CA TNI 


(ag) Set up Translation Output Tape 



IA 

UB 



0 

MJ 

0 

30000 


1 

TP 

TN 

A 

1 Puts proper parameter into tape-write 

2 

AT 

UB17 

WT13 

1 routine so that String-Outs will be written 

either on tape 3 or tape 6. 

CO ^ 

RP 

TP 

10024 

ITP 1 A 

UB5 1 

inu 1 

V il J 

\ Puts 20 lines of Z's into title block 

5 

TP 

UB15 

VN24 1 

i String-Outs goes on beginning of 2nd 

6 

TP 

UB16 

VN25 J 

i blockette of block. 

7 

RP 

10142 

UBl 1 1 

> Filling remainder of title block with 

10 

TP 

UB14 

VN26 j 

lines of Z's. 

11 

TP 

WT13 

GT3 ' 

1 Writing title block on either tape 3 or 

12 

RJ 

GT2 

GT 

1 tape 6. 

13 

MJ 

0 

UB 

Jump to exit 

14 

74 

74747 

47474 


15 

65 

66543 

45032 

STRING 

16 

02 

51676 

66501 

- 0 U T S A 

17 

71 

00103 

VN 



CA 

UB20 
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(ah) Write Translation List on Tape (also region SS) 



IA 

WT 



0 

MJ 

0 

30000 


1 

TP 

UZ2 

A 1 

\ 

2 

ZJ 

WT 

WT3 i 

* Has error routine been referenced? 

3 

TP 

VN 

A 

No. of lines to A 

4 

DV 

WT14 

Q 

No. of blocks to Q 

5 

ZJ 

WT7 

WT6 

Is remainder zero? 

6 

RS 

Q 

WT15 

If so, reduce no. of blocks by one. 

7 

LA 

Q 

25 

No. of blocks to rt. position in A 

10 

AT 

WT13 

GT3 ] 

i Adding in standard parameter with one block 

11 

RJ 

GT2 

GT J 

1 and using generalized tape handler. 

12 

MJ 

0 

WT 

Exit 

13 

71 

00103 

VN 

Standard parameter for use in gen. tape 
handler. 

14 

0 

0 

170 

No. of lines to a block. 

15 . 

0 

0 

1 



CA WT16 
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(ai) Put Referenced Sentence Number in List IZ 


0 

IA 

MJ 

IX 

0 

30000 


1 

TP 

A 

1X46 

Line no. to storage. 

2 

TP 

11 

A 1 

\ Is 11 < 00 20454 00454? 

3 

TJ 

1X40 

IX11 > 


4 

TP 

1X46 

a i 

1 Is line no. in ref. list? 

5 

RP 

20454 

1X7 ! 

6 

EJ 

IZ 

IX J 

1 

7 

RA 

1X47 

1X36 

Counting excess line no. referrals. 

10 

MJ 

0 

IX 


11 

TU 


t 1 O 

Setting up repeat for search of IZ accord¬ 

ii 

lAiO 

12 

TP 

1X46 

A 1 

ing to length of IZ. 

I 

13 

RP 

30000 

1X15 

> Is line no. in ref. list? 

14 

EJ 

IZ 

IX J 

I 

15 

TV 

11 

1X26 

No. of lines n in IZ to v of 1X26 

16 

RA 

11 

1X37 

Adding 0 2 2 to 11. 

17 

TJ 

1X40 

1X25 

Is 11 < 0 20454 454? 

20 

TP 

1X34 

UP3 

1 Error Print-Out: Referenced lines 

21 

RJ 

UP2 

UP 

> exceed 150. 

22 

RJ 

UZ 

UZ1 

Referral to string-out error routine 

23 

TP 

1X36 

1X47 

Putting 1 into excess line-referral counter 

24 

MJ 

0 

TX 


25 

RA 

1X26 

1X33 

IZ + n—> v of N1 

26 

TP 

1X46 

30000 

Line no. goes to next location at end of 

27 

TV 

1X26 

1X31 'l 

IZ list 

Subsequent address of IZ list is 

30 

RA 

1X31 

1X36 i 

> cleared. 

31 

TP 

1X35 

30000 J 

1 

32 

MJ 

0 

IX 


33 

0 

0 

IZ 


34 

0 

1X41 

5 


35 

0 

0 

0 


36 

0 

0 

1 


37 

0 

2 

2 


40 

0 

20455 

455 


41 

54 

30313 

05430 

R E F E R E 

42 

50 

26302 

70146 

N C E D A L 

43 

34 

50306 

50130 

I N E S A E 

44 

72 

26303 

02701 

X C E E D A 

45 

04 

10037 

77777 

1 5 0 A A A 

46 

0 

0 

0 


47 

0 

00000 

0 



CA 

1X50 
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(aj) Excess-Three Decimal to Octal 



IA 

RS 



0 

MJ 

0 

RS5 

Entrance 

1 

RJ 

0 

0 

Alarm exit 

2 

MJ 

0 

30000 

Exit 

3 

0 

0 

0 

Out put 

4 

0 

0 

0 

Input 

5 

TP 

RS51 

RS3 

Clearing output 

6 

TP 

RS51 

RS42 

Clearing digit counter 

7 

TP 

RS51 

RS43 

Clearing decimal number accumulator 

10 

TP 

RS52 

RS44 

Setting index 5 

11 

TP 

RS54 

RS45 

Setting 6 in working storage 

12 

LQ 

RS4 

* 1 

j Masking out each character and converting 

13 

QT 

RS46 

RS41 

f from excess 3. 

14 

RS 

RS41 

RS47 J 

1 

15 

SJ 

RS20 

RS16 

Below-0 end-of-digits check 

16 

ST 

RS50 

A 

l Above-9 end-of-digits check 

17 

SJ 

RS22 

RS20 

1 

20 

21 

TP 

ZJ 

RS42 

RS26 

A 1 

RS2 J 

^ Count-of-digits zero check 

22 

RA 

RS42 

RS53 . 

Count of digits 

23 

LQ 

RS43 

<> 1 

I Accumulation of decimal digits in one line 

24 

RA 

RS43 

RS41 | 


25 

IJ 

RS44 

RS12 J 

1 

26 

RS 

RS45 

RS42 ) 

1 

27 

MP 

RS45 

RS54 1 

1 Computing and performing initial shift on 

30 

TV 

A 

RS31 

[ line of decimal digits. 

31 

LQ 

RS43 

0 J 


32 

RS 

RS42 

RS53 . 

Computing index of octal conversion 

33 

LQ 

RS43 

6 


34 

SP 

RS3 

2 

Decimal-to-octal conversion 

35 

SA 

RS3 

1 

> 

36 

QA 

RS46 

RS3 


37 

IJ 

RS42 

RS33 j 


40 

MJ 

0 

RS2 ^ 

Jump to exit 

41 

0 

0 

0 

Storage for single decimal digits 

42 

0 

0 

0 

lst-Counter for digits; 2d-Index for octal 
conversion 

43 

0 

0 

0 

Line of decimal digits is accumulated here. 

44 

0 

0 

0 

Set at start to index 5 

45 

0 

0 

0 

Set at start to 6 

46 

0 

0 

77 

Mask 

47 

0 

0 

3 

Subtrahend to convert from excess three 

50 

0 

0 

12 

*°io 

Zero constant 

51 

0 

0 

0 

52 

0 

0 

5 

Index constant 

53 

0 

0 

1 1 

J> Constants 

54 

0 

0 

6 J 


CA 

RS55 
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(ak) Excess-Three Decimal to Floating Point 


Assembly 
of digits 
before 
decimal 
point 


Assembly 
of digits 
after 
decimal 
point 



TA 

xn 

GG 



0 

MJ 

0 

GG6 

Entrance 

1 

RJ 

0 

0 

Alarm exit not used 

2 

MJ 

0 

30000 

Exit 

3 

0 

0 

0 

Floating point output 

4 

0 

0 

0 

1 • ... 

5 

0 

0 

0 

? Input in excess-three decimal 

6 

TP 

CF2 

CC ] 


7 

TP 

CF3 

CC1 J 

> Set indexes 

10 

TP 

CF6 

CC2 

Set divisor at 12g 

11 

RP 

10006 

mi'! 1 

UU X KJ l 

t Clear 6 places of working storage, 

12 

TP 

CF13 

CC3 J 

1 CC3-CC11 

13 

TU 

GG165 

GG15 

Put GG4 in u part of GG15 

14 

TV 

GG164 

GG33 

Put CC13 in v part of GG33 

C 15 

LQ 

GG4 

6 ] 

L Mask out character and put in CC12 

16 

QT 

CF 

CC12 - 1 

I 

17 

RS 

CC12 

CF1 

Subtract 3 

20 

SJ 

GG21 

GG24 

Below zero end-of-digits check 

21 

TP 

CC3 

A 1 

Test for zero number of significant 

22 

AT 

CC4 

a : 

\ digits 

23 

ZJ 

GG66 

GG162 J 

I 

24 

EJ 

CF16 

GG56 

Test for decimal point 

25 

ZJ 

GG30 

GG26 N 

Test for zero 

26 

TP 

CC3 

A 1 

Zero in CC3 counter causes zero in CC12 

27 

ZJ 

GG32 

GG35 ! 

> to be bypassed as a non-significant zero 

< 



J 

in count. 

30 

RS 

A 

CF6 1 

i Test for above-9 end-of-digits 

31 

SJ 

GG32 

GG21 J 

1 character 

32 

RA 

CC3 

CF3 

Count of digits before decimal point 

33 

TP 

CC12 

CC13 

Storage of digits in consecutive addresses 

34 

RA 

GG33 

CF3 

Modify previous v to next address 

35 

IJ 

CC 

GG15 

6-character index jump 

36 

IJ 

CC1 

GG40 

2-line index jump 

37 

MJ 

0 

GG64 

Jump to conversion at end of input 





assembly 

40 

TU 

GG166 

GG15 

Set u of GG15 to GG5 for second input line 

41 

TP 

CF2 

CC 

Restore 6-character index to 5 

L 42 

MJ 

0 

GG15 

Jump to assembly of second input line 

r 43 

TP 

GG15 

GG44 


44 

0 

0 

0 


45 

QT 

CF 

CC12 


46 

RS 

CC12 

CF1 


< 47 

SJ 

GG21 

GG50 


50 

RS 

A 

CF6 


51 

SJ 

GG52 

GG21 


52 

RA 

CC4 

CF3 


53 

TP 

GG33 

GG54 


54 

0 

0 

0 
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55 

RA 

GG33 

CF3 



56 

IJ 

CC 

GG43 



57 

IJ 

CC1 

GG61 



60 

MJ 

0 

GG64 



61 

TU 

GG166 

GG15 



62 

TP 

CF2 

CC 



163 

MJ 

0 

GG43 



64 

TP 

CC3 

A 

1 


65 

AT 

CC4 

A 

> Computing index CCll for octal 


66 

ST 

CF3 

CC11 

| conversion 

Conversion 

(hi 

MP 

CC7 

CF6 " 


of all 

70 

TP 

A 

CC1 


digits 

71 

MP 

CC10 

CF6 


to an octal 

72 

AT 

CC13 

A 


number con¬ 

73 

LT 

0 

CC12 


tained in < 

74 

LT 

10000 

CC10 


CC7 and 

75 

TP 

CC12 

A 


CC10. 

76 

AT 

CC1 

CC7 



77 

RA 

GG72 

CF4 



100 

IJ 

CC11 

GG67 



l 01 

TU 

GG167 

GG72 

Restoring CC13 to u part of GG72 


102 

TP 

CC4 

A 

) Test for zero digits after decimal 


103 

ZJ 

GG104 

GG132 . 

f point 


104 

EJ 

CF7 

GG113 

Test for 11 digits after decimal 






point 


105 

ST 

CF3 

CC11 

Set index for computation of power- 


r 




of-10 divisor 

Computa¬ 

106 

IJ 

CC11 

GG110 


tion of 

107 

MJ 

0 

GG114 


"power- < 

no 

MP 

CF6 

CC2 


of-10" 

in 

TP 

A 

CC2 


divisor 

112 

MJ 

0 

GG106 



113 

TP 

CFll 

CC2 

10"—» CC2. 10" alone would over- 






8 flow Ar 


114 

TP 

CF6 

A ^ 

1 


115 

ST 

CC3 

CC 

i Computation of dividend shift 


116 

MP 

CC 

CF1 | 

> needed to get 10 significant fig- 


117 

TP 

A 

CC5 J 

| ures in quotient. 


120 

SP 

CC7 

44 ] 

1 


121 

TV 

CC5 

GG122 

> Octal number —>A with proper shift. 


122 

SA 

CC10 

0 j 

I 


123 

DV 

CC2 

CC26 

Division by power of 10 


124 

TP 

CC4 

A 1 

If CC4 = 11, additional shift to 


125 

EJ 

CF7 

GG127 1 

give effect of dividing by 8. See 


126 

MJ 

0 

GG130 | 

f 113 above. 


127 

LA 

CC26 

105 J 

i 


130 

TP 

CC26 

A I 



131 

MJ 

0 

GG134 1 

Final converted-to-octal number->A 


132 

SP 

CC7 

44 | 

[ 


133 

SA 

CC10 

0 J 



134 

SF 

A 

CC1 

Scaling for number size and to put 






it in fixed position 


135 

AT 

CF10 

CC 

Rounding off 
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136 

TP 

CC 

Q 

137 

QJ 

GG140 

GG143 

140 

LQ 

CC 

33 

141 

TP 

CF3 

CC6 

142 

MJ 

0 

GG144 

143 

1.0 
-x. 

CC 

34 1 

144 

TP 

CF12 

Q 

145 

QT 

CC 

CC 

146 

TP 

CC 

GG3 , 

147 

TP 

CC6 

CC3 

150 

RA 

CC3 

CF5 

151 

RS 

CC3 

CC5 

152 

SA 

CC1 

33 

153 

TP 

A 

CC4 

154 

TP 

CC1 

a i 

155 

EJ 

CF14 

GG162 J 

156 

TJ 

CF14 

GG160 \ 

157 

RS 

CC4 

CF15 J 

160 

RA 

GG3 

CC4 

161 

MJ 

0 

GG2 

162 

TP 

CF13 

GG3 

163 

MJ 

0 

GG2 

164 

0 

0 

CC13 

165 

0 

GG4 

0 

166 

0 

GG5 

0 

167 

0 

CC13 

0 


CA 

GG170 




IA 

CF 


0 

0 

0 

77 

1 

0 

0 

3 

2 

0 

0 

5 

3 

0 

0 

1 

4 

0 

1 

0 

5 

0 

0 

243 

6 

0 

0 

12 

7 

0 

0 

13 

10 

0 

0 

200 

11 

13 

51035 

56400 

12 

00 

07777 

(till 

13 

0 

0 

0 

14 

0 

0 

45 

15 

11 

0 

0 

16 

0 

0 

17 


CA 

CF17 



If round-off caused a carry-over 
from first significant digit 1 
—> CC6 and shifting is altered. 


Assembly and insertion of mantissa 
into output line. 

[(CC6) + 243 - (CC5) + k] shifted 
to position of characteristic and 
put into CC4 


If k = 45 q, both characteristic 
and mantissa = 0. 

If 45Q>k, 1100 is subtracted 
from CC4 

Final assembly of non-zero float¬ 
ing point number. 

Jump to exit. 

Clearing output line to zero 
Exit 
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Sequential Uses of Working Storage CC 


[ Index 5 for 6 characters in a line of input. 

0< Varying multiplier to determine size of fractional part in quotient 
^Temporary storage for first parts of result. 

fIndex 1 for 2 lines of input. 

1< Storage for 10-A^. 
of scale factor. 

2 Varying product and final divisor. 

gf Number of digits before decimal point. 

I Used to accumulate characteristic. 

^f Number of digits after decimal point. 

\ Used to accumulate characteristic. 

5 Shift to give fractional part in quotient. 

6 Used to denote carry-over in round off. 

7 A^ in octal conversion. 

10 A d in octal conversion. 

K 

C Varying index for conversion to binary. 

\ Varying index for multiplication in computing divisor. 

12-25 For accumulation of first 11 decimal numbers after subtracting 3 

2 ^f Used for 12th decimal number. 

°t Used for quotient after division. 
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(al) Assign Constant Call Word 



IA 

GW 



0 

MJ 

0 

30000 

Exit 

1 

TP 

A 

FX12 

Entry. To store constant temporarily 

2 

TP 

10 

A 1 

. Test if number of constants = 1000. 

3 

TJ 

FX 

ZS 


4 

TP 

FX12 

A 

Test if constant is in list that is 

5 

RP 

21000 

GW7 

' already 1000 in length. 

6 

EJ 

CL 

GW13 


7 

RA 

FX13 

FX2 

Count of number of referrals of con¬ 
stants not in list after alarm. 

10 

TP 

FX3 

Q ] 

, Giving the maximum call word 67777 to 

11 

SP 

FX3 

17 J 

all of these referral constants. 

12 

MJ 

0 

GW 


13 

SN 

Q 

17 

L- j, - (n - rtf-MAe^ 

14 

SA 

FX11 

0 

[- j, (r - n)] f [j, n] = r^-(A R ) u 

15 

MJ 

0 

ZS22 


CA 

GW 16 




IA 

ZS 



0 

TP 

FX12 

A 

Constant — > A 

1 

TU 

10 

ZS2 

Sets up u of Repeat by constant list 
count in 10. 

2 

RP 

30000 

ZS7 1 

, Test if constant is in list CL. 

3 

EJ 

CL 

ZS4 J 


4 

SN 

Q 

17 

[- j , - (n - r)] —MAd) u 

5 

SA 

10 

0 

f- j. (r - n)] + [j.ni = r—>(Ao)„ 

6 

MJ 

0 

ZS22 


7 

TV 

10 

ZS20 

n —>■ (ZS20) V 

Counter 10 increased by 1. 

10 

RA 

10 

FX1 

11 

TJ 

FX 

ZS17 

Is call word list of constants - 1000? 

12 

TP 

ZS27 

UP 3 ] 

. Alarm print-out — too many constants 

13 

RJ 

UP2 

UP J 


14 

RJ 

UZ 

UZ1 

References error routine. 

15 

TP 

FX2 

FX13 

Starts excess count of referrals in FX13. 

16 

MJ 

0 

GW 10 


17 

RA 

ZS20 

ZS26 

(n f cl) —> (ZS26) V 

20 

TP 

FX12 

30000 

Constant added to next position in list 

21 

SP 

10 

17 

n —>(A r )„ 

(r + 66777) —> 

Irrelevant material in q masked out. 

22 

AT 

FX4 

Q 

23 

QT 

FX5 

0 





Call word formed in A u 

24 

LQ 

0 

25 

Call word formed in Q v 

25 

MJ 

0 

GW 

26 

0 

0 

CL 


27 

0 

FX6 

3 

Parameter for error print-out: too many 
constants 


CA 

ZS30 




IA 

FX 



0 

00 

21001 

01001 

Threshold constant for check on size of 


CL. 
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© 

© 

© 





1 

0 

1 

1 



2 

0 

0 

1 



3 

0 

0 

67777 


Maximum call word. Given to all new 
constants exceeding 1000. 

4 

0 

66777 

0 


Base number from which call words are 






determined by adding to position in list 
CL. 

5 

0 

77777 

0 


Mask 

6 

66 

51510 

14724 


T 0 0 A M A 

7 

50 

73012 

65150 


N Y A C 0 N 

10 

65 

66245 

06665 


S T A N T S 

11 

0 

21000 

0 



12 

0 

0 

0 



13 

0 

0 

0 




CA 

FX14 




(am) Close VARY 

File Item 

and Variable List File Item 


IA 

VE 




0 

MJ 

0 

30000 



1 

SP 

VII 

0 1 

► 

Are there any unclosed items in the Vary 
File? 

2 

EJ 

VI2 

VE6 , 



3 

TU 

VI 

VE4 


Yes. Is the current sentence number > 

4 

SP 

30000 

0 

► 

the sentence number in the last unclosed 

5 

TJ 

WLl 

VG6 


item of the Vary File? 

6 

RJ 

RA 

RA1 

► 

No, so reference Routine A and then exit. 

7 

MJ 

0 

VE j 



10 

TP 

VI2 

VI 


( X) —> a 

11 

TP 

VI2 

VII 


( y)—*p 

12 

TV 

VI3 

VE14 ' 


Insert call word of current sentence in¬ 

13 

SP 

WL3 

17 

► 

to u-portion of word at address given by 

14 

TU 

A 

30000 - 


(temp 1) 

15 

TU 

VI3 

VE16 


Close Vary File item by inserting JUMP 

16 

RA 

30000 

VH3 J 


flag (bit 35) in word at address given 
by (temp 1) 

17 

MJ 

0 

VE6 




CA 

VE20 





IA 

VG 




0 

TU 

VG21 

VG2 ' 



1 

TV 

VI3 

VG3 


Insert call word given by (a ) +1 (v 

2 

SP 

30000 

17 

f 

portion) into u-portion of word at addr. 

3 

TU 

A 

30000. 


given by (temp l) 

4 

TU 

VI3 

VG5 

► 

Close Vary File item by inserting RESUME 

5 

RA 

30000 

VH4 . 


flag (bits 35,34) into word given by 

6 

SP 

VI 

0 

> 

(temp 1) 

7 

AT 

VH 

VI3 


Record address ( a) + 1 into temp 1. 

10 

TU 

A 

VGll | 



11 

SP 

30000 

0 

► 

Set index to no. of WITH words. 

12 

LT 

6 

VI4 J 



13 

RS 

VL 

VH2 


Close last file of variables 
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14 

IJ 

VI4 

VG13 


15 

RS 

VI 

VHl 

Decrease ( a ) by two 

16 

TJ 

VII 

VE10 

CJ3) > ( a )? 

17 

SA 

VH 

0 


20 

TO 

A 

VG21 

Is word at address given by ( a ) +• 1 

21 

TP 

30000 

0 

flagged? 

22 

QJ 

VG15 

VG23 . 


23 

TU 

VI 

VG24 

No. Is the current sentence number> 

24 

SP 

30000 

0 

the sentence number at address given 

25 

TJ 

WLl 

VG 

by ( a ) ? 

26 

MJ 

0 

VE12 



CA 

VG27 
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Close VARY File Item and Variable List File Item (cont.) 



IA 

VH 



0 

0 

1 

1 


1 

0 

2 

2 


2 

0 

3 

3 


3 

40 

0 

0 

JUMP flag 

4 

60 

0 

0 

RESUME flag 


CA 

VH5 




IA 

VI 



0 

0 

VF1 

VF1 

a 

1 

0 

VF1 

VF1 

P 

2 

0 

VF1 

VF1 

r 

3 

0 

0 

0 

Temp 1 

4 

0 

0 

0 

Index 


CA 

VI5 
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(an) Flex Codes for Print Text 



IA 

FC 


XS3 

0 

5 

60000 

0 

00 

= Superscript minus 

1 

0 

40000 

0 

01 

= Space 

2 

45 

60000 

0 

02 

= minus 

3 

43 

70000 

0 

03 

= 0 

4 

45 

20000 

0 

04 

= 1 

5 

47 

40000 

0 

05 

= 2 

6 

47 

0 

0 

06 

= 3 

7 

46 

40000 

0 

07 

= 4 

10 

46 

20000 

0 

10 

= 5 

11 

46 

60000 

0 

11 

= 6 

12 

47 

20000 

0 

12 

= 7 

13 

46 

0 

0 

13 

^ 8 

14 

43 

30000 

0 

14 

= 9 

15 

5 

40000 

0 

15 

= Superscript / 

16 

41 

30112 

0 

16 

= Gtr > 

17 

4 

60000 

0 

17 

= open parenthesis ( 

20 

7 

0 

0 

20 

= Superscript 3 

21 

44 

60000 

0 

21 

= Comma , 

22 

44 

20000 

0 

22 

- Period . 

23 

44 

60000 

0 

23 

= Semicolon ; 

24 

3 

0 

0 

24 

= A 

25 

2 

30000 

0 

25 

= B 

n / 

1 

X 


f\ 

\J 

04 

L-\J 

— r 

\j 

27 

2 

20000 

0 

27 

- D 

30 

2 

0 

0 

30 

= E 

31 

2 

60000 

0 

31 

= F 

32 

1 

30000 

0 

32 

= G 

33 

0 

50000 

0 

33 

= H 

34 

1 

40000 

0 

34 

= I 

35 

6 

20000 

0 

35 

= Superscript 5 

36 

6 

0 

0 

36 

= Superscript 8 

37 

41 

12412 

0 

37 

= lsr < 

40 

7 

40000 

0 

40 

= Superscript 2 

41 

6 

40000 

0 

41 

= Superscript 4 

42 

45 

0 

0 

42 

= absolute value | 

43 

4 

20000 

0 

43 

= closed parenthesis ) 

44 

3 

20000 

0 

44 

= J 

45 

3 

60000 

0 

45 

= K 

46 

1 

10000 

0 

46 

= L 

47 

0 

70000 

0 

47 

= M 

50 

0 

60000 

0 

50 

= N 

51 

0 

30000 

0 

51 

= 0 

52 

1 

50000 

0 

52 

= P 

53 

3 

50000 

0 

53 

= 0 

54 

1 

20000 

0 

54 

= R 

55 

6 

60000 

0 

55 

= Superscript 6 
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56 

42 

76154 

0 

56 

= 

* 


57 

3 

30000 

0 

57 

= 

Superscript 

9 

60 

3 

70000 

0 

60 

= 

Superscript 

0 

61 

5 

20000 

0 

61 

— 

Superscript 

I 

62 

4 

40000 

0 

62 

= 

Superscript 


63 

45 

40000 

0 

63 


+ 


64 

5 

40000 

0 

64 

= 

/ 


65 

2 

40000 

0 

65 


S 


66 

0 

10000 

0 

66 

— 

T 


67 

3 

40000 

0 

67 

= 

U 


70 

1 

70000 

0 

70 

= 

V 


71 

3 

10000 

0 

71 

ZI 

w 


72 

2 

70000 

0 

72 


X 


73 

2 

50000 

0 

73 

= 

Y 


74 

2 

10000 

0 

74 

= 

z 


75 

7 

20000 

0 

75 


Superscript 

7 

76 

44 

40000 

0 

76 

= 

= 


77 

7 

70000 

0 

77 

= 

ignore 



CA 

FC100 
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(ao) Line Number Processor 




IA 

LN 



o 

MJ 

o 

T 

1 ^ 


1 

MJ 

0 

LN7 


2 

MJ 

0 

30000 


3 

00 

30000 

30000 


4 

00 

30000 

30000 


5 

TV 

RC14 

PA1 


6 

MJ 

0 

DRO 


7 

TV 

RC15 

PA1 


10 

MJ 

0 

DR 


11 

TP 

LN4 

LN3 


12 

MJ 

0 

LN2 



CA 

LN13 




IA 

DR 


SETUP 

0 

TV 

RC6 

MR 27 

AND 

1 

TV 

DR 

DR 15 

DRIVER 

2 

RJ 

MR12 

MR 12 


3 

RJ 

MR43 

MR43 


4 

TP 

UC23 

LN3 


5 

TP 

UC4 

WS3 


6 

TP 

LN4 

WS 


7 

TV 

RClO 

MR3 


10 

TV 

RC13 

MR4 


11 

TV 

RC12 

MR5 


12 

TV 

RCll 

MR7 


13 

TV 

RCl 

MR16 


14 

IJ 

WS3 

MR 


15 

RJ 

DR 15 

30000 


16 

TP 

LN3 

A 


17 

EJ 

UC23 

PA30 


20 

EJ 

UC24 

PA30 


21 

MJ 

0 

LN2 



CA 

DR22 




IA 

MR 


CODE PICK 

0 

LQ 

WS 

6 

UP AND 

1 

QT 

UC20 

A 

SORT 

2 

RP 

20004 

MR4 


3 

EJ 

UC14 

30000 


4 

EJ 

UC13 

30000 


5 

EJ 

UC1 

30000 


6 

RP 

20011 

PA 11 


7 

EJ 

UC2 

30000 

INTEGRAL 

10 

TV 

RC 

MR16 

PART 

11 

TV 

RC2 

MR3 


12 

RJ 

MR12 

MR 13 


13 

RJ 

MR12 

MR22 


Ho eo T nut T*\r 

vuuv * CU l/l J 

Case II entry 
Exit 
Output 
Input 

Set alarm switch to Case I 

Process line number 

Set alarm switch to Case II 

Process line number 

Enter here after alarm print and put 

i nnnt 1i no mimhor i n nut nut 1 lnn 
~ **r — ■*•**“' - r — 

Exit 


Preset ".AA" one shot switch 

Preset ".AA" one shot switch in driver 

Preset 3-point distributor 

Preset 2-point distributor 

Prestore output word. 

Prestore master counter 
Set up line number in temporary 
Set Exit 1 to master counter 
Set Exit 2 to period routine 
Set Exit 3 to integral part = 0 
Set Exit 4 to integral part # 0 
Set ADD/NO ADD switch to NO ADD 
Master counter 

One shot switch to add " .AA" 

Determine if input line number has at 
least one nonzero digit; if not 
ALARM 4 

Input line number O.K., exit. 


Shift line number 6 and pick up next 
character in A 

Exi t 1 A, ij (, ) 

Exit 2 
Exit 3 0 

Alarm 1: ILLEGAL CHARACTER 
Exit 4 1, 2, 3, 4, 5, 6, 7, 8, 9 
Set ADD/NO ADD switch to ADD 
Set Exit 1 to routine 

I ^ 3-Point Distributor 
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14 

RJ 

MR12 

MR22 


15 

MJ 

0 

MR24 


16 

MJ 

0 

30000 


17 

SA 

LN3 

6 


20 

TP 

A 

LN3 


21 

MJ 

0 

30000 


22 

RJ 

MR21 

MR 16 


23 

MJ 

0 

DR 14 


24 

TV 

RC3 

MR5 


25 

TV 

RC3 

MR7 


26 

RJ 

MR21 

MR16 


27 

RJ 

MR27 

30000 


30 

MJ 

0 

DR 14 


31 

SP 

LN3 

0 


32 

SA 

UC13 

6 


33 

SA 

UC14 

6 


34 

AT 

UC14 

LN3 


35 

MJ 

0 

DR 14 

PERIOD 

36 

TV 

RC2 

MR3 

ROUTINE 

37 

TV 

RC5 

MR4 


40 

TV 

RC7 

MR5 


41 

TV 

RC7 

MR7 


42 

MJ 

0 

MR27 

FRACTIONAL 

43 

RJ 

MR43 

MR44 

PART 

44 

RJ 

MR43 

MR46 

ROUTINE 

45 

MJ 

0 

MR 60 


46 

EJ 

UC1 

MR 55 


47 

LA 

A 

6 


50 

TP 

UC21 

Q 


51 

QS 

A 

LN3 


52 

TP 

UC 

WS1 


53 

TP 

UC20 

WS2 


54 

MJ 

0 

DR 14 


55 

LT 

10006 

WS1 


56 

TP 

UC22 

WS2 


57 

MJ 

0 

DR14 


60 

TV 

RC4 

MR5 


61 

TV 

RC4 

MR7 


62 

EJ 

UCl 

DR14 


63 

AT 

WS1 

WS1 


64 

TP 

WS2 

Q 


65 

QS 

WS1 

LN3 


66 

MJ 

0 

DR 14 

SPACE 

67 

TV 

RC10 

MR3 

ROUTINE 

70 

TV 

RC5 

MR4 


71 

TV 

RC5 

MR5 


72 

TV 

RC5 

MR 7 


73 

MJ 

0 

DR14 



CA 

MR74 




ADD/NO ADD switch 'j ADD/NO ADD Subrou- 
Add char, to ► tine 

Output and 
exit 

I = II Add digit if it is significant. 

Jump to master counters 

III Set Exit 3 and 4 to Alarm 2 

Add digit if it is significant. 

One shot switch, set initially to MR31 
Jump to master counter 
Output—*• A 
Add . 

Add A 

Add A and replace in LN3 
Jump to master counter 
Set Exit 1 to Aroutine 
Set Exit 2 to Alarm 4 
Set Exit 3 to fract. part 
Set Exit 4 to fract. part 
Jump to one-shot add in ".AA" 

I r 2-Point Distributor 
IIJ 

I Is this digit zero? No,—> MR47 

Shift to 2nd position "-X-" 

Mask —> Q 

Mask digit into LN3 = Output 
Clear TEMP 
Set Mask 

Jump to master counter 

Digit is zero: shift to "-X-" and 

store in TEMP 
Set Mask 

Jump to master counter 
III Set Exits 3, 4 to 

J Alarm 3 

Is this digit zero? Yes ,—> master 

counter 

No: add digit to TEMP 
Mask - *■ Q 

Mask digit or digits into Output 

Jump to master counter 

Set Exit 1 to master counter 

Set Exit 2 to Alarm 4 

Set Exit 3 to alarm 4 

Set Exit 4 to Alarm 4 

Jump to master counter 
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IA 

RC 


0 

0 

0 

MR17 

1 

0 

0 

MR21 

2 

0 

0 

MR67 

3 

o 

0 

PA 16 

4 

0 

0 

PA23 

5 

0 

0 

PA30 

6 

0 

0 

MR31 

7 

0 

0 

MR43 

10 

0 

0 

DR 14 

11 

0 

0 

MR 10 

12 

0 

0 

MR11 

13 

0 

0 

MR 36 

14 

0 

0 

PA3 

15 

0 

0 

PAS 


CA 

RC16 



IA 

uc 


0 

0 

0 

0 


r 1 

0 

0 

3 


2 

0 

0 

4 


3 

0 

0 

5 


4 

0 

0 

6 


5 

0 

0 

7 

EXCESS- 

6 

0 

0 

10 

THREE 

7 

0 

0 

11 

CODES \ 

10 

0 

0 

12 


11 

0 

0 

13 


12 

0 

0 

14 


13 

0 

0 

22 


14 

0 

0 

1 


15 

0 

0 

77 


16 

0 

0 

17 


17 

0 

0 

43 

20 

0 

0 

77 

21 

0 

0 

7700 

22 

0 

0 

7777 


Sets ADD/NO ADD switch to ADD 
Sets ADD/NO ADD switch to NO ADD 
Sets Exit 1 to A routine 
Alarm 2 entry 
Alarm 3 entry 
Alarm 4 entry 

Sets add " .AA " one-shot switch 
Fractional part routine entry 
Sets Exit 1 to master counter 
Integral part entry 0 
Integral part entry = 0 
Period routine entry 
Case I alarm switch 
Case II a’arm switch 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

A 

t 

( 

) 

Masks 
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23 

1 

1010 

10100 

A A A A 0 0 

24 

1 

1012 

20101 

A A & * A A 


CA 

UC25 




IA 

WS 



0 

0 

30000 

30000 

"TEMP" to take apart input line number 

1 

0 

30000 

30000 

Temporary to store fractional part of 





digits 

2 

0 

30000 

30000 

Holds mask for inserting fractional part 





of digits 

3 

0 

30000 

30000 

Master counter (set to 6) 


CA 

WS4 




IA 

PA 



0 

RJ 

UZO 

UZ1 

Reference error routine 

1 

MJ 

0 

0 

Switch to case I or case II 

2 

MJ 

0 

0 

Sub sub-routine exit 

3 

RJ 

WA 

WA2 

Print error heading case I 

4 

MJ 

0 

PA2 

Exit to print alarm comment 

5 

TP 

LN4 

CD3 

Fill input Line Number in heading case II 

6 

TP 

CD 

UP3 1 

[ Print heading with 

7 

RJ 

UP 2 

UP J 

i Uniprint 

10 

MJ 

0 

PA2 

Exit to print alarm comment 

11 

RJ 

PA2 

PA 

Print (alarm 1 entrj) 

12 

TP 

LN4 

CD15 1 


13 

TP 

CD5 

UP 3 

► Alarm comment 1 

14 

RJ 

UP2 

UP J 


15 

MJ 

0 

LN11 


16 

RJ 

PA2 

PA 

Print (alarm 2 entry) 

17 

TP 

LN4 

CD27 1 


20 

TP 

CD17 

UP3 

r Alarm comment 2 

21 

RJ 

UP2 

UP J 

1 

22 

MJ 

0 

LN11 


23 

RJ 

PA2 

PA 

Print (alarm 3 entry) 

24 

TP 

LN4 

CD 42 1 


25 

TP 

CD31 

UP 3 

' Alarm comment 3 

26 

RJ 

UP 2 

UP J 


27 

MJ 

0 

LN11 


30 

RJ 

PA2 

PA 

Print (alarm 4 entry) 

31 

TP 

LN4 

CD54 ] 


32 

TP 

CD 

UP 

y Alarm comment 4 

33 

RJ 

upa. 

UP J 


34 

MJ 

0 

LN11 



CA 

PA3f 
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IA 

CD 






0 

00 

CD1 

4 

Parameter 




1 

65 

30506 

63050 

SENT 

E 

N 1 

Heading 

2 

26 

30010 

17777 

C E A A 


J 


3 

01 

01010 

10101 

A A A A 

A 

A 

Input Line Number 

4 

01 

01017 

77777 

AAA 




5 

40 

CD6 

11 

Parameter 




6 

34 

46463 

03224 

I L L E 

G 

A 

Comment 1 

7 

46 

01263 

32454 

t A r u 

a 

B 



10 

24 

26663 

05401 

A 

UA 

C 

T 

E 

R 

A 



11 

34 

50016 

53050 

I 

N 

A 

S 

E 

N 



12 

66 

30502 

63001 

T 

E 

N 

c 

E 

A 



13 

50 

67472 

53054 

N 

U 

M 

B 

E 

R 



14 

01 

77777 

77717 

A 





( 



15 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

Input Line 

Number 

16 

43 

77777 

77777 

) 








17 

40 

CD20 

11 

Parameter 





20 

30 

72665 

42401 

E 

X 

T 

R 

A 

A 

Comment 2 


21 

34 

50663 

03254 

I 

N 

T 

E 

G 

R 



22 

24 

46012 

73432 

A 

L 

A 

D 

I 

G 



23 

34 

66650 

13450 

I 

T 

s 

A 

I 

N 



24 

01 

65305 

06630 

A 

S 

E 

N 

T 

E 



25 

50 

26300 

15067 

N 

c 

E 

A 

N 

U 



26 

47 

25305 

40117 

M 

B 

E 

R 

A 

( 



27 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

Input Line 

Number 

30 

43 

77777 

77777 

) 








31 

40 

CD32 

12 

Parameter 





32 

30 

72665 

42401 

E 

X 

T 

R 

A 

A 

Comment 3 


33 

31 

54242 

66634 

F 

R 

A 

C 

T 

I 



34 

51 

50244 

60127 

0 

N 

A 

L 

A 

D 



35 

34 

32346 

66501 

I 

G 

I 

T 

s 

A 



36 

34 

50016 

53050 

I 

N 

A 

S 

E 

N 



37 

66 

30502 

63001 

T 

E 

N 

C 

E 

A 



40 

50 

67472 

53054 

N 

U 

M 

B 

E 

R 



41 

01 

77777 

77717 

A 





( 



42 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

Input Line 

Number 

43 

43 

77777 

77777 

) 








44 

40 

CD45 

11 

Parameter 





45 

34 

46463 

03224 

1 

L 

L 

E 

G 

A 

Comment 4 


46 

46 

01653 

05367 

L 

A 

S 

E 

Q 

U 



47 

30 

50263 

00134 

E 

N 

C 

E 

A 

I 



50 

50 

01653 

05066 

N 

A 

s 

E 

N 

T 
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51 30 50263 00150 E N C E A N 

52 67 47253 05401 U M B E R A 

53 17 77777 77777 ( 

54 01 01010 10101 A A A A A A Input Line Number 

55 43 77777 77777 ) 

CA CD56 
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b. Translators 


The two dimension translators are placed first in the group that 
follows. All other translators have been inserted in the order in which 
they are stored on the drum. See the regional assignments of translators 
in the preceding subdivision for this order. 
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Dimension String-Out. No. 1 


Dimension String-out No. 1 is entered when Dimension Statement occurs as the 
1st Sentence of a program. The routine uses the information in the dimension 
statement to assign a drum address and call word for each variable, and to 
build a file for each variable. Each file is added to the Dimension List. 

When End of Sentence is encountered the routine exists to Dimension String-out 
No. 2. 


Successive operands in a sentence are obtained by referencing the Get 
Next Symbol routine. Variable name is picked up, assigned the current drum 

address, and given a call word of 77 _ type. Subscripts are picked up and 

used to form modulus and multipliers for the variable. When closing paren¬ 
thesis is picked up, the file is sent to the Dimension List. Drum address 
for the next variable is formed by adding modulus to old drum address and 
next call word is set up for assignment to next variable. 

Error Print-outs: This routine references Error Routine (WA) for print-out of 
sentence number and sentence type, before all error print-outs. Several types 
of errors are detected: 

If more than four subscripts are given for a variable, the routine 
prints: TOO MANY SUBSCRIPTS FOR VARIABLE ’_’ 

If a new variable name is picked up before closing parenthesis for 

preceding variable is found, routine prints: INFORMATION FOR VARIABLE ’_' 

IS INCOMPLETE 

If more than 512 variables appear in a sentence, the routine prints: 

TOO MANY VARIABLES 

If available drum storage is exceeded, the routine prints: VARIABLES 
REQUIRE TOO MUCH STORAGE 

If a fixed-point variable name is given in a sentence, the routine 
prints: ILLEGAL SYMBOL 

If an opening parenthesis or comma between subscripts is missing, the 
routine prints: ILLEGAL SYMBOL SEQUENCE FOR VARIABLE '_’ 

If a modulus for a variable is less than 2, the routine prints: 
DIMENSION OF VARIABLE ' * IS LESS THAN 2. 
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When an error is found for a variable, the symbols following the variable 
are ignored until a new variable name is found. A file containing only 
the variable name, drum address and call word is added to the Dimension List. 
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Dimension String-Out No* 1 Flow Charts - Page 2 of 6 




©— 


Set Exit G 


Set Exit A to 


—^ 


to 


A 2 
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Dimension String-Out No, 1 Flow Charts - Page 4 of 6 




o 




Set Exits A f E t 
and G to A^E^ 
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Dimension String-Out No. 1 Flow Charts - Page 6 of 6 
















Dimension String-Out No. 1 


RE 

DY4400 

RE 

DT4424 

RE 

DU4502 

RE 

DV4564 

RE 

DW4622 

RE 

DX4643 

RE 

DZ4707 

RE 

CR5075 


String-Out Subroutine Regions Are Needed to Assemble This Tape 


El 


e 3 


C2 



IA 

DV 




0 

RP 

10007 

DV2 1 

l Clear TF-TF 6 


1 

TP 

DZ 

TF J 

1 


2 

TP 

DZ 1 

TF 1 

Set initial drum 

address 

3 

TP 

DZ2 

TF3 

Set initial call 

word 

4 

RP 

10003 

DV 6 1 



5 

TP 

DZ 

DZ 111 J 

■ Clear counters 


6 

TP 

DZ22 

TF 

Set u & V of TF to 3 

7 

RJ 

DX 

DX 

Set exit A to A\ 


10 

RJ 

DX 16 

DX16 

Set exit B to Bj 


11 

RJ 

DV17 

DV14 

Set exits C, D & 

E to Cj 

12 

RJ 

DY2 

DY2 

Set exit G to 


13 

MJ 

0 

DW 

Back to get next 

symbol 

14 

TV 

DW16 

DW7 



15 

TV 

DW16 

DW10 



16 

TV 

DW 16 

DW15 



17 

MJ 

0 

30000 



20 

RJ 

DW15 

30000 

Set exit E to E 2 


21 

RJ 

DU 

DU 

Set exit B to B 2 


22 

TV 

DZ24 

DW10 

Set exit D to D^ 


23 

TV 

DZ24 

DW15 

Set exit E to E^ 


24 

MJ 

0 

DW 

Back to get next 

symbol 

25 

RJ 

DW15 

30000 

Set exit E to E 3 


26 

RJ 

DX 

DX 

Set exit A to A^ 


27 

TV 

DZ24 

DW15 

Set exit E to E^ 


30 

RJ 

DY2 

DY2 

Set G to G^ 


31 

MJ 

0 

DW 

Back to get next 

symbol 

32 

RJ 

DW7 

30000 

Set exit C to C 2 


33 

RJ 

DU 

DU 

Set exit B to B 2 


34 

TV 

DZ24 

DW7 

Set exit C to C^ 


35 

MJ 

0 

DW 

Back to get next 

symbol 


CA 

DV36 
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IA 

DY 



0 

MJ 

0 

CR 

Exit to Dim. String-out No. 2 

1 

MJ 

0 

DV 

Jump to start 

2 

RJ 

DW13 

30000 

Set exit G to Gi 

3 

RJ 

WA 

WA1 

Print Error heading 

4 

TP 

TF2 

A 1 

Test: Has variable name been inserted into 

5 

ZJ 

DY6 

DY13 J 

TF2? 

6 

TP 

A 

DZ60 

If so, insert name of variable into print. 

7 

TP 

DZ11 

UP3 

Print: ILLEGAL SYMBOL SEQUENCE FOR VARIABLE 

10 

RJ 

UP2 

UP 


11 

RJ 

DT55 

DT 51 

Send incomplete file to Combination List 

12 

MJ 

0 

DY17 

Jump to G 

13 

14 

TP 

RJ 

DZ12 

UP2 

UP3 

UP 

d. 

Print: ILLEGAL SYMBOL SEQUENCE 

15 

MJ 

0 

DY17 

Jump to G 2 

16 

RJ 

DW13 

30000 

Set exit G to G 0 

17 

SP 

DZ112 

17 ' 

d 

20 

SA 

DZ117 

0 

, Set location 6 No. of words in Dim. List to u 

21 

TU 

A 

6 


22 

TV 

DZ113 

6 J 

No. of call words to v 

23 

MJ 

0 

DY 

Jump to exit 


CA 

DY24 




IA 

DT 



0 

1 _ 

TP 

TJ 

DZ113 

0220 

A 1 

DT6 

[ Test: Have less than 512 call words been 

assigned? 

2 

RJ 

WA 

WA 1 

If not, print error heading 

3 

TP 

DZ14 

UP3 1 

Print: TOO MANY VARIABLES 

4 

R J 

UP2 

UP J 

5 

MJ 

0 

DT25 

Jump to subroutine exit. 

6 

RA 

DZ113 

DZ21 


7 

RA 

DZ112 

TF 


10 

TV 

DZ111 

TF4 


11 

RJ 

IE 

TE1 

Send file to combination list 

12 

RA 

TF1 

DZ114 


13 

TJ 

DZ26 

DTI 5 


14 

MJ 

0 

DT45 


15 

RJ 

DU7 ; 

DU7 


16 

RA 

TF3 

DZ21 


17 

TP 

DZ22 

TF 


20 

TP 

DZ 

TF2 


21 

RP 

10003 

DT23 


22 

TP 

DZ 

TF4 


23 

TP 

DZ 

DZ111 

Clear subscript counter 

24 

TP 

DZ 

DZ114 

Clear Temp. 

25 

MJ 

0 

30000 

Subroutine exit 

26 

RJ 

DW10 

30000 
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D2 27 

30 

31 

32 

33 

34 

35 

36 

37 


TP DZ114 

TJ DZ25 
RJ DT25 

RJ DV25 
RJ DX 
RJ DY16 
TV DX24 
MJ 0 
TP TF2 


‘ I 

DT37 J 
DT 

DV25 

DX 

DY16 

DW10 

DW 

DZ77 


40 

RJ 

WA 

WA1 

41 

TP 

DZ17 

UP3 

42 

RJ 

UP2 

UP 

43 

RJ 

DT55 

DT51 

44 

MJ 

0 

DT32 

45 

RJ 

WA 

WA1 

46 

TP 

DZ16 

UP3 

47 

RJ 

UP2 

UP 


50 

MJ 

0 

DTI 5 

51 

TP 

DZ 

TF4 

52 

TP 

DZ22 

TF 

53 

TP 

DZ 

DZ114 

54 

RJ 

DT25 

DT 

55 

MJ 

0 

30000 


CA 

DT56 



Test: Is modulus ^ 2? 

If so, send file to Comb. List & set for 

next file 

Set exit E to E„ 

Set exit A to 
Set exit G to G„ 

Set exit D to Df 

Back to get next symbol. 

Put name of variable into print 

Print error heading 

Print: DIMENSION OF VARIABLE •_’ IS 

LESS THAN 2 

Send incomplete file to Combination List 
Back to set new exits 
Print error heading 

Print: VARIABLES REQUIRE TOO MUCH STORAGE 


IA DU 

0 RJ DW16 
B2 1 RJ RD 

2 TP SY2 

3 RJ RS2 

4 TP DZ27 

5 TJ DZ111 

6 RA DZ111 

7 RJ DU7 


30000 


RD1 

Check fixed 

RS4 1 

RS J 

f 1 Convert XS3 

A 

DU51 - 

[ Test: Is m 

DZ21 

If so, add 

DU 10 1 



pt. symbol 
to octal 

of subscripts £ 3 
to subscript counter 


10 

RJ 

DU7 

11 

RJ 

DU7 

12 

RJ 

DU7 

13 

MJ 

0 

14 

LA 

RS3 

15 

TP 

A 

16 

TU 

A 

17 

RA 

TF 


DU14 I 

DU24 f Distributor for subscripts 
DU 30 
DU42 , 

17 

DZ114 ‘ 1st subscript to Temp, and to TF4„ 

TF4 J 

DZ23 Increment TF 


20 

RJ 

DX16 

DX16 

21 

RJ 

DV20 

DV20 

22 

RJ 

DT26 

DT26 

23 

MJ 

0 

DW 


Set B to B^, E to E^, D to D ^ 
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11 


Exit A 


Exit C 
Exit D 


Exit G 
Exit I 
Exit E 
Exit B 


24 

TP 

RS3 

EZ115 ] 

2 nd subscript to temp.+ 1 and to TF5, r 

25 

TV 

RS3 

TF5 J 


26 

MP 

DZ114 

EZ115 

(Temp.) (Temp. + 1 )— * A 

27 

MJ 

0 

DU15 


30 

MP 

DZ114 

RS3 ] 

3rd subscriDt x temD. —temD. and to 

31 

TP 

A 

EZ114 I 

[ TF \ 

32 

TU 

A 

TF4 J 

33 

MP 

DZ115 

TS3 ] 

3rd subscript x temp. 1 —»temp. and to 

34 

TP 

A 

DZ115 ( 

TF5 V 

35 

TV 

A 

TF5 J 


36 

LA 

RS3 

17 1 

1 

37 

TP 

A 

EZ116 

r 3rd subscript to temp. + 2 U and TF5 U 

40 

TU 

A 

TF5 J 

41 

MJ 

0 

DU20 


42 

TV 

RS3 

TF 6 

4th subscript to TF 6 y 

43 

MP 

DZ115 

RS3 1 

L (4th subscript) temp. +■ 1-^TF5 V 

44 

TV 

A 

TF5 J 

I 

45 

MP 

EZ116 

RS3 

^ (4th subscript) temp. + 2 — > TF5^ 

46 

TU 

A 

TF5 J 

47 

MP 

DZ114 

TS3 

(4th subscript) temp.—>A 

50 

MJ 

0 

DU15 


51 

TP 

TF2 

DZ36 

Insert name of variable into print 

52 

RJ 

WA 

WA1 

Print error heading 

53 

TP 

DZ15 

UP3 

1 Print: TOO MANY SUBSCRIPTS FOR 

54 

RJ 

UP2 

UP 

f VARIABLE _ 

55 

RJ 

nr 55 

nr 51 

Send incomplete file to Combination List 

56 

RJ 

DW17 

DW 17 

Set B to I 2 

57 

RJ 

DV17 

DV14 

Set C t D, & E to I ^ 

60 

RJ 

DX 

DX 

Set exit A to Ai 

61 

MJ 

0 

DX30 



CA 

DU62 




IA 

DW 



0 

RJ 

SY 

SY1 

Get next symbol 

1 

TP 

SY7 

Q 

l Test: Is 1st char, a letter? 

2 

QJ 

DW3 

DW5 J 

1 

3 

TP 

SY10 

Q 

t Test: Is 1st char. I, J, K, L, or M? 

4 

QJ 

DW14 

30000 . 

1 

5 

TP 

SY11 

Q 

t Test: Is 1st char, decimal point or 

6 

QJ 

DW16 

DW7 

) digit? 

7 

EJ 

EZ3 

30000 

Test: Is symbol (? 

10 

EJ 

DZ4 

30000 

Test: Is symbol )? 

11 

EJ 

DZ5 

DW15 

Test: Is symbol ,? 

12 

EJ 

EZ 6 

DW15 

Test: Is symbol ;? 

13 

EJ 

DZ7 

30000 

Test: Is symbol A .? 

14 

MJ 

0 

DX36 

Illegal symbol exit 

15 

MJ 

0 

30000 


16 

MJ 

0 

30000 


17 

RJ 

DW16 

30000 

Set exit B to I 2 
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Exit 12 


Al 


a 2 


B,C,D,E 



20 

MJ 

0 

DW 



CA 

DW21 




IA 

DX 



0 

RJ 

DW4 

30000 

Set exit A to Aj 

1 

RJ 

RH 

RH1 

Check variable symbol 

2 

TP 

SY2 

TF2 

Put variable symbol in file 

3 

RJ 

DV32 

DV32 

Set exit C to C 2 

4 

RJ 

DX16 

DX16 

Set exit B to Bj 

5 

RJ 

DV17 

DV15 

Set exits D and E to Di and Ej 

6 

RJ 

DY2 

DY2 

Set exit G to Gj 

7 

RJ 

DW4 

DW 

Set exit A to A 2 & go to pick up next 





symbol 

10 

RJ 

WA 

WA1 

Print error heading 

11 

TP 

TF2 

DZ45 

Insert name of variable into print 

12 

TP 

EZIO 

UP3 ] 

Print: INFORMATION FOR VARIABLE 

13 

RJ 

UP2 

UP J 

IS INCOMPLETE 

14 

RJ 

nr 55 

OT51 

Send incomplete file to Combination List 

15 

MJ 

0 

DX1 

Jump to Ai 

16 

RJ 

DW16 

30000 

Set exit B to Bi 

17 

RJ 

WA 

WA1 

Print error heading 

20 

TP 

TF2 

A 1 

1 Test: Has variable been inserted into 

21 

ZJ 

DX22 

DX33 J 

| TF2? 

22 

TP 

A 

EZ60 

If not, put name of variable into print 

23 

TP 

EZ11 

UP3 1 

Print: ILLEGAL SYMBOL SEQUENCE FOR 

24 

RJ 

UP2 

UP J 

VARIABLE _ 

25 

RJ 

nr 55 

nrsi 

Send incomplete file to Combination List 

26 

RJ 

DW17 

DW17 

Set B to I 2 

27 

RJ 

nvi7 

EV14 

Set C, D, and E to I 2 

30 

RJ 

DY16 

DY16 

Se t G 1 0 G 2 

31 

RJ 

DX 

DX 

Set A to Ai 

32 

MJ 

0 

DW 

Back to get next symbol 

33 

TP 

EZ12 

UP3 1 

1 Print: ILLEGAL SYVBOL SEQUENCE 

34 

RJ 

UP2 

UP J 

r ^ 

35 

MJ 

0 

EX26 

Back to (7) 

36 

TP 

SY2 

EZ65 

Insert illegal symbol into error print 

37 

RJ 

WA 

WA1 

Print error heading 

40 

TP 

EZ13 

UP3 1 

Print: ILLEGAL SY1VB0L_ 

41 

RJ 

UP2 

UP J 


42 

TP 

TF2 

A 


43 

ZJ 

DX22 

DX26 



CA 

DX44 




IA 

DZ 



0 

0 

0 

0 


1 

0 

40001 

0 


2 

0 

0 

77000 


3 

17 

77777 

77777 


4 

43 

77777 

77777 
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5 

21 

77777 

77777 




6 

23 

77777 

77777 




7 

01 

22777 

77777 




10 

40 

DZ40 

11 

- 



11 

40 

DZ51 

11 




12 

40 

DZ51 

4 



U P parameters 

13 

40 

DZ62 

5 


L 

14 

40 

DZ67 

4 


f 

for alarm 

15 

40 

DZ30 

10 



16 

40 

DZ103 

6 



prints 

17 

40 

DZ73 

10 

J 


20 

0 

0 

1000 




21 

0 

0 

1 




22 

0 

3 

3 




23 

0 

1 

1 




24 

0 

0 

DX17 




25 

0 

2 

0 




26 

0 

77777 

0 




27 

0 

0 

3 




30 

66 

51510 

14724 

* 


XS3 codes 

31 

50 

73016 

56725 



TOO MANY SUBSCRIPTS FOR VARIABLES — 

32 

65 

26543 

45266 



33 

65 

01315 

15401 


> 


34 

70 

24543 

42425 




n r- 

OD 

46 

OUU 

o —y 

O 1 1 II 




36 

01 

01010 

10101 




37 

17 

22-777 

77777 

J 



40 

34 

50315 

15447 

"V 



41 

24 

66345 

15001 




42 

31 

51540 

17024 




43 

54 

34242 

54630 



INFORMATION FOR VARIABLE — IS INCOMPLETE 

44 

01 

43777 

77777 


► 


45 

01 

01010 

10101 




46 

17 

01346 

50134 




47 

50 

26514 

75246 




50 

30 

66302 

27777 

J 



51 

34 

46463 

03224 




52 

46 

01657 

34725 




53 

51 

46016 

53053 




54 

67 

30502 

63001 




55 

31 

51540 

17024 




56 

54 

34242 

54630 


► 

ILLEGAL SY1VB0L SEQUENCE FOR VARIABLE — 

57 

01 

43777 

77777 



60 

01 

01010 

10101 




61 

17 

22777 

77777 

J 



62 

34 

46463 

03224 

1 




448 



63 

46 

01657 

34725 




64 

51 

46014 

37777 




65 

01 

01010 

10101 



ILLEGAL SYMBOL - 

66 

17 

22777 

77777 

> 

1 


67 

66 

51510 

14724 




70 

50 

73017 

02454 


► 

TOO MANY VARIABLES 

71 

34 

24254 

63065 




72 

22 

77777 

77777 

j 



73 

27 

34473 

05065 




74 

34 

51500 

15131 




75 

01 

70245 

43424 




76 

25 

46300 

14377 




77 

01 

01010 

10101 


► 

DIMENSION OF VARIABLE - IS LESS THAN 2 

100 

17 

01346 

50146 




101 

30 

65650 

16633 




102 

24 

50010 

52277 




103 

70 

24543 

42425 

U 



104 

46 

30650 

15430 




105 

53 

67345 

43001 




106 

66 

51510 

14767 


► 

VARIABLES REQUIRE TOO MUCH STORAGE 

107 

26 

33016 

56651 




110 

54 

24323 

02277 

/ 



111 

0 

0 

0 



Subscript counter 

112 

00 

0 

0 



No. words in dim. list counter 

113 

0 

0 

0 



No. call words counter 

114 

0 

0 

0 



Temp, 

115 

0 

0 

0 



Temp. +1 

116 

0 

0 

0 



Temp, 4- 2 

117 

0 

20000 

0 





CA 

DZ120 
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Dimension No. 2 Translator. 


This translator reads the Permanent Library Catalog from the master 
tape and the Catalog for the UNICODE Library from Uniservo 2 and inserts 
them in the Combination List. Since these Catalogs must follow the Dimension 
items (if any) in the Combination List, this Translator is entered from the 
Dimension 1 Translator if a Dimension sentence appears in the problem. 
Otherwise, it is entered from the Translation Set-up routine. 

This routine makes appropriate checks on the labels of the Uniservo 
2 Library tape to insure that, if present, it is positioned properly. If a 
Library tape is not required for the problem and is not mounted on Uniservo 
2 , compilation will continue after suitable indication is given. 
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/ Entry >. 
/from translators 
(setup or from 
Dimension 1 
( translator 


Dimension No. 2 Translator Page 1 of 3 


Set tape handler 
parameter to read 
fixed library 
catalog to buffer 


/Tape handler"' 
(read) 


/Add catalogs^ 
''to Combination 
V Li st y 


Set tape handler 
parameter to read 
first block of 
library tape 
(servo 2) 


/Are 21st and 22 a > 
words of block 
.AALIB A ATAPE A ?> 


rape handlers 
(read) 


Set Uniprint parameter 
to print: MOUNT UNICODE 
(T)—* LIBRARY TAPE ON SERVO 2. 
IF NO LIBRARY IS RE¬ 
QUIRED SET A NOT = ZERO. | 
START 


Set Tape Handler 
parameter to re¬ 
wind Servo 2 


Library tape 
required? 


Set accumulator 
equal zero 


'Tape handler 
. (read) 


Are 1st and 2nd > 
words of block 
LIBAAACATAAA ? 


UP j Uniprint 
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Dimension No. 2 Translator Page 2 of 3 
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Dimension No. 2 Translator Page 3 of 3 

Subroutine A Add Library Catalog to Combination List. 


'''i 11 th * action of x Ye ^ Has thls alarm 
this much library catslogV—J 1)een lntedUn j 

cause Combination List/ ' 

to be too long? 


No 


UZ. Add to 
, Error count 


No 




Yes 


(!) 


©*- 


Set so this alarm is 
not printed again 


_UP_ 

He —K Uniprint 



Set Uniprint parameters to 
Print: LIST OF VARIABLES, 
LIBRARY ROUTINES, FUNCTIONS 
AND PSEUDO OPERATIONS HAS BE¬ 
COME TOO LONG. WORKING ON 
LIBRARY CATALOGUE. 









Dimension No. 2 Translator 


Regions 


RE 

CR5075 


RE 

CQ5131 


RE 

OV5151 


RE 

CW5177 


RE 

CX5214 


RE 

CY5270 


RE 

CZ5272 


RE 

CU46101 

Numerical Constant 


RE 

UP 421 



RE 

TE2663 



RE 

CB40101 



RE 

TH21 



RE 

WL3507 

► 

String-Out Subroutines Used 

RE 

CT714 



RE 

UZ3067 



RE 

TB2637 



RE 

FH50624 . 




454 




IA 

CR 




0 

TP 

CW6 

TH3 1 

L 

Read fixed library catalog to Buffer CZ 

1 

RJ 

TH2 

TH ! 

1 


2 

TP 

cz 

CY 


Length —*■ temp. 

3 

TU 

CR27 

CV25 


Set ud Transfer 

4 

RJ 

CV24 

CV i 


Add fixed library catalog to CB list 

5 

TP 

CW7 

TH3 1 

\ 

Read standard library to Buffer CZ 

6 

RJ 

TH2 

TH J 

I 


7 

SP 

CZ24 

0 } 

\ 

Check for A A L I B A 

10 

EJ 

CW10 

CR12 J 

I 


11 

MJ 

0 

CR14 



12 

SP 

CZ25 

0 1 

► 

Check for A T A PEA 

13 

EJ 

CW11 

CR23 J 



14 

TP 

CXI 

UP3 1 


MOUNT LIBRARY, etc. 

15 

RJ 

UP2 

UP J 



16 

TP 

CW5 

TH3 ] 


Rewind Uniservo 2. 

17 

RJ 

TH2 

TH J 



20 

SP 

CW 

0 


Set A = 0 

21 

MS 

0 

CR22 



22 

ZJ 

CQ11 

CR5 


Library tape required? 

23 

RJ 

TH2 

TH 

\ 


Read block of Library tape 

24 

TP 

CZ 

A ! 


Check for L I B AAA 

25 

EJ 

CW12 

CR27 J 



26 

MJ 

0 

CR31 



27 

TP 

CZ1 

A 1 

L 

Check for C A T A A A 

30 

EJ 

CW13 

CQ J 

r 


31 

TP 

CX 

UP3 


LIBRARY CATALOG INCORRECT, etc. 

32 

RJ 

UP 2 

UP 



33 

MJ 

0 

CR16 




CA 

CR34 






IA 

CQ 



0 

SP 

CZ2 

0 

Third word of block— >A. 

1 

ZJ 

CQ2 

CQ11 

If no. of words = 0, exit 

2 

TP 

A 

CY1 


3 

TU 

CR24 

CV25 

Set up transfer 

4 

RJ 

TH2 

TH 

Read block of Library tape 

5 

SP 

CW1 

0 1 

l 

6 

TJ 

CY1 

CQ14 J 

1 Is catalog longer than one block? 

7 

TP 

CY1 

CY 

No. words—>temp. 

10 

RJ 

CV24 

CV i 

Transfer to CB list 

11 

TP 

WL2 

A 1 

L Has there been a Dimension sentence? 

12 

EJ 

CW14 

CT J 

1 If yes, jump to get next sentence 

13 

MJ 

0 

CT13 

If no, jump to continue present sentence 

14 

RS 

CY1 

CW1 

Reduce count by 170 

15 

TP 

CW1 

CY 

Use 170 count 

16 

RJ 

CV24 

CV 

Transfer to CB list 

17 

MJ 

0 

CQ4 

Back for next block. 


CA 

CQ20 
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IA 

0 SP 

1 AT 

2 SA 

3 TJ 

4 TP 

5 QJ 

6 RJ 

7 TP 

10 RJ 

11 TP 

12 RJ 

13 TP 

14 SP 

15 ST 

16 TP 

17 QS 

20 SP 

21 QA 

22 TV 

23 RA 

24 RP 

25 TP 

CA 


IA 

0 0 
1 0 
2 0 

3 0 

4 0 

5 10 

6 50 

7 50 
10 01 
11 01 

12 46 

13 26 

14 27 
CA 


CV 

CY 

CY 

TE2 

CW4 

TE3 

CV14 

uz 

CX46 
UP 2 
CX47 
UP2 
TB5 
CW3 
TE2 
CW2 
CY 
CB 
CY 
TE2 
TE2 
30000 
30000 

CV26 


CW 

0 

0 

7777 

CU 

CU1 

2 

101 

102 

01463 

66245 

34250 

24660 

34473 

CW15 


17 

CY 

0 

CV16 

Q 

CV 6 

UZ1 

UP3 

UP 

UP3 

UP 

TE3 

0 

CY 

Q 

CV24 

0 

CB 

CV25 

CY 

30000 

30000 


0 

170 

0 

CU 

CU1 

0 

CZ 

CZ 

42501 

23001 

10101 

10101 

05065 


} 


Will CB List be too long? 

Has this alarm been printed before? 

No, so add to error count 
and print alarm 


Set so this alarm is not printed again. 
Prepare to transfer partial block 

Set n of RP 

Advance CB word counter 
Set up transfer 

Advance CB list address counter 

Transfer Library Catalog to 
CB List. 


1st word of List following CB List 

Rewind Uniservo 2. 

Read one block of Uniservo 1, 

Read one block of Uniservo 2. 

A A L I B A 

A T A P E A 

L I B A A A 

C A T A A A 

D I M E N S 
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IA 

CX 








0 

0 

CX2 

25 







1 

0 

CX27 

17 







2 

46 

34255 

42454 

L 

I 

B 

R 

A 

R 

3 

73 

01262 

46624 

Y 

A 

C 

A 

T 

A 

4 

46 

51326 

73001 

L 

0 

G 

U 

E 

A 

5 

46 

24253 

04601 

L 

A 

B 

E 

L 

A 

6 

34 

50265 

15454 

I 

N 

C 

0 

R 

R 

7 

30 

26662 

20101 

E 

C 

T 


A 

A 

10 

47 

51675 

06601 

M 

0 

U 

N 

T 

A 

11 

67 

50342 

65127 

U 

N 

I 

C 

0 

D 

12 

30 

01463 

42554 

E 

A 

L 

I 

B 

R 

13 

24 

54730 

15150 

A 

R 

Y 

A 

0 

N 

14 

01 

65305 

47051 

A 

S 

E 

R 

V 

0 

15 

01 

05220 

10134 

A 

2 


A 

A 

I 

16 

31 

01505 

10101 

F 

A. 

N 

0 

A 

A 

17 

01 

01463 

42554 

A 

A 

L 

I 

B 

R 

20 

24 

54730 

13465 

A 

R 

Y 

A 

I 

S 

21 

01 

54305 

36734 

A 

R 

E 

Q 

U 

I 

22 

54 

30270 

16530 

R 

E 

D 

A 

s 

E 

23 

66 

01240 

15051 

T 

A 

A 

A 

N 

0 

24 

66 

01760 

10322 

T 

A 

= 

A 

0 


25 

01 

01656 

62454 

A 

A 

S 

T 

A 

R 

26 

66 

22010 

10101 

T 

. 

A 

A 

A 

A 

27 

47 

51675 

06601 

M 

0 

u 

N 

T 

A 

30 

67 

50342 

65127 

U 

N 

I 

C 

0 

D 

31 

30 

01463 

42554 

E 

A 

L 

I 

B 

R 

32 

24 

54730 

15150 

A 

R 

Y 

A 

0 

N 

33 

01 

65305 

47051 

A 

S 

E 

R 

V 

0 

34 

01 

05220 

10134 

A 

2 


A 

A 

I 

35 

31 

01505 

10146 

F 

A 

N 

0 

A 

L 

36 

34 

25542 

45473 

I 

B 

R 

A 

R 

Y 

37 

01 

34650 

15430 

A 

I 

S 

A 

R 

E 

40 

53 

67345 

43027 

0 

U 

I 

R 

E 

D 

41 

01 

65306 

60124 

A 

S 

E 

T 

A 

A 

42 

01 

50516 

60176 

A 

N 

0 

T 

A 

- 

43 

01 

03220 

10101 

A 

0 

. 

A 

A 

A 

44 

01 

01656 

62454 

A 

A 

S 

T 

A 

R 

45 

66 

22010 

10101 

T 


A 

A 

A 

A 

46 

0 

FH23 

21 

Refers to Print-out in String-out Subs 

47 

40 

CX50 

4 







50 

50 

01463 

42554 

N 

A 

L 

I 

B 

R 

51 

24 

54730 

12624 

A 

R 

Y 

A 

C 

A 

52 

66 

24465 

13267 

T 

A 

L 

0 

G 

U 

53 

30 

22777 

77777 

E 

• 






CA 

CX54 
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Compute String-Out. 


The string-out that this routine produces contains the call words of 


the alpha-numeric symbols of comp lit 


*gs. They appesr in tne sanie 


sequence as the symbols appear in the input sentence. Only subscripted 
variables are represented by more than their call words; these also have a 
modulus plus a number of subscripts and their multipliers in the string-out. 
A subscripted variable therefore occupies 2, 3, or 4 rows in the string-out, 
depending on whether it has 1, 2-3, or 4 subscripts. Parentheses, commas, 
periods and the like are not saved, except for the final space-period, which 
appears in excess-three representation and indicates the end of the string- 
out . 


one comoinaiion oi several 
sentence, such as: COMPUTE A(I) AND DOT (F,B (J), -20.4) AND W A . The 
string-out places a zero line between the terms within the sentence and after 
the last one, just preceding the space-period. This zero line is important 
for the compute-generate routine; it gives the indicator to place the RJ 
with the ten-line. 


Variables that cannot be found in the Combination List or Dummy List 
are assigned call words by this routine and added to the Combination List. 
Only functions and subscripted variables are assumed to be in the lists, or 
an alarm occurs. 


The Compute String-out routine checks for the type faults, wrongly 
chosen symbols, incorrect format of operands in functions or pseudo operations 
and for tne wrong number of subscripts of subscripted variables. Furthermore 
it checks for all sorts of errors induced by the combination of several 
symbols. The model for these error checks is given in the appendix to the 
flow chart. 


When the first symbol of the sentence following the word "compute" is 
not alpha-numeric, the routine prints an alarm and exits without further 
checking of the sentence. This is the only case where the routine skips 
the rest of the sentence. In all other cases the sentence is handled up to 
the very end (if the number of alarms does not exceed the limit) and only 
contents of parentheses may be skipped, where a preceding alarm made the check 
ing of the symbols inside the parentheses meaningless. 
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In cases where single-valued variables are used in place of subscripts, 
or vice versa, the routine gives an alarm but assumes that this format mistake 
was just incorrect writing and therefore adds the correct bit to the function 
or subscripted variable format-set-up in order to go on checking those 
expressions. 

The routine handles negative floating point numbers inside functions 
and inside pseudo operations. In all other cases negative signs are rejected. 

These are the 23 alarm print-outs and three warnings: 

1) SymbolC I illegal in compute sentence. 

2) Adjacent symbols! ][ 3 meaningless in compute sentence. 

3) Pseudo operationC3 has too many elements. 

4) Parentheses not properly paired. 

5) Variable C 3 has incorrect number of subscripts. 

6 ) Arguments of function L 3 do not agree with previous usage. 

7) C 3 cannot be computed here, since the sentence is in the range of a 
vary sentence. 

8 ) Constant £ \ is followed by open parenthesis. 

9) Constant £ =j appears as variable to be computed. 

10) Arguments of function C 3 do not appear. 

11 ) Arguments of function [ 3 are superfluous. 

12) Alpha-numeric symbol [ 3 has digit as first character. 

13) Symbol C 3 incorrectly used. 

14) Variable C 3 is not defined by an equation. 

15) Single valued variable C 3 is followed by an open parenthesis. 

16) Subscripts of variable C 3 do not appear. 

17) Arguments of dummy function C 3 do not appear. 

18) Format of pseudo operation L 3 does not agree with previous usage. 

19) Subscript C 3 of variable [ 3 is not properly written. 

20 ) Argument C 3 of function C 3 appears as subscript. 

21) Function or subscripted variable [ 3 has not been previously mentioned. 

22 ) Subscript [ 3 of variable C 3 exceeds allowed number of subscripts. 

23) First symbol is wrong. Sentence not further checked. 

Warnings: 

1 ) Comma assumed between £ ^ and preceding symbol. 

2 ) "and" assumed between £ £ and preceding symbol. 

3) "and" inside parentheses replaced by comma. 
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COMPUTE String-out 
































COMPUTE Strii 



JA36 JA40 



(Cont.) 





















COMPUTE String-out (Cont.) 
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COMPUTE Stringout (Cont.) 






















COMPUTE STRINGOUT (Con:.) 


Alpha-numeric 



parent. parent. parent. 



© 


o> 

4 ^ 




n 

Inside 
pa rent. 


r 

Inside 

1 

Inside 

1 

Inside 

funct. 

1 

subscr. var. 

i 

pseudo op 
| 

(t> 

'd) 

(5) 



J 

Check 

V 

for dummy list, then comb. 

list 


Alarm 21 



Assign CW fltp. var. 
and add to Comb. List 











COMPUTE STRINGOUT (Cont.) 


G> 


d> 


05 

cn 


©- 


©- 


Not in Comb. List 


- 77 is 

next 

symbo1 

( ? < 

- 66 " 

«, 

m 

< ? <j 

- 65 " 

m 

99 

( ?< 

- 64 * 

a» 

" 

( ? < 

- 4 " 

- 

ft 

(? <i 

- Other 

H m 


( V < 


i . . . r „—Yes depending on v of TA5 save 4,3 or 2 addr., save XS3 code and set "ins. subscr. var" = 1 

I- 77 1S next s 5™ bo1 ( ? <No alarm 16 


Not . in comb, list 


Assume pseudo operat., make up format and put in comb, list 

Yes depending on v of TA5, save 4,3 or 2 addr. and XS3 code and set "inside sub. var" to 1 and set JD22 V 

No alarm 16 

( .o <^Yes save CW and XS3 code and # of elements in fct., set "ins. funct." to 1, set 3 in counted * of elem. and v of JB253=0 
^No alarm 17-1/2 
Yes alarm 15 
No save CW 
Yes alarm 15 
No save CW 

Yes save CW and set "ins. pseudo" = 1, save XS3 code, store CW in JD31 

No save CW and XS3 code, check last 2 digits of CW for 0 (when not, alarm 18), store CW in JD31 
Yes alarm 13, go to EXTRA 
No * 13, go to get next symbol 

Generate CW after checks and put it in comb, list 


(67) - - 

65 • 

64 " 

Other" * 

• Not in Comb. List 

■ (67) is nert symbol 

■ 64 • 

-Other" " 

- Not in Comb. List 


« , -Yes a larm 15 

( ?<i No are we ins. subscr. var. as well?<^Yes: adv. counter for subscr. Is it>l? <* es ‘- ala ™ , 
. , ?<r Yes alarm 15 No: save CW No: save CW 

^No save CW 
* „ 0 wYes alarm 15 


( -^Yes alarm 13, go to EXTRA 
No " 13, " " get nex 


(?«, 


Yes alarm 15 
No adv. count 

Yes alarm 15 


Yes alarm 13. go to EXTRA 

" get next symbol 


* ? ^No " 13, 


Generate CW after checks and put it in comb, list 


-77 is next 

symbol 

( 

?< Yes 

^No 

-(67) " " 

m 

( 

0 -Yes 
?< *No 

_ AA " m 

m 

( 

_Yes 

? <No 

oo 


-65 " 

m 

( 

?<; Yes 

? ^No 

-6-4 

" 

( 

9<J YeS 
* ^No 

- Other" 

" 

( 

?<jYes 

No 


ar. as well? Yes: adv. ct. for subscr. Is it> 4 ?<Yes: alarm 22 

* " n a rn tyo: save CW No: save CW 

30 op. arg. 0 f f c t. should not be given), save CW and go to EXTRA 


-Yes Alarm 15 
No save CW 
Yes alarm 15 


13, 


'Yes: adv. ct. for subscr. Is it >4?^ 
k No: save CW 


Yes: alarm 22 


No: 


save CW 


VII 


III 


as well? <c£ Yes: adv. counter for subscr. 
No: alarm 20 

Is it > 1 ?<JYes: alarm 22 

No: save CW 

III 

symbol 




put it 

in comb, list 



Is it 

>4? Yes: alarm 22 

No: save CW 


IV 

Is it 

> 4? Yes: a larm 22 
^ No: save CW 


IV 


VI 


VI 


get next symbol 



466 


COMPUTE STHINGOUT (Cont.) 


G> 


■Not in Dummy or Comb. List alarm since funct. symb. expected 

.77 is next symbol ( ? <jYes depending on v of TA5 save 4 f 3 f cr 2 addr. and XS3 code, set "ins. sub," to 1 and set JD22 

No alarm 16 

■ 66 M " 

■ 65 " " 

• 64 M " 


✓ ? ^Yes save CW and XS3 code, set "ins. fct." = 1, set JD22, set v of JB253=0, save # of elem. in fct. 

^No alarm 17-1/2 
( ? ^Yes alarm 15 
^No save CW 
( ? <fYes alarm 15 


tt <« 


61 
other " 


( 


No save CW 

—Yes save CW and xS3 code, set "ins. fct." = 1, set v of JB253 = 0, save # of elem. in fct. 
^No alarm 17 

( ? jf-Yes alarm 13 go to EXTRA 
- - - “ - 


‘‘No 


13, 


get next symbol 


P Not in dummy or comb, list generate CW after checks and put it in comb, list 
77 is next symbol f ? 


G> 


-76X " 

** 

4* 

( ? 

-(67)" 

M 

*1 

( ? 

-65 " 

H 

M 

( ? 

-64 " 

4t 

M 

( ? 

-63 H 

M 

M 

( ? 

-Other' 1 

M 

H 

( ? 

j-Not in 

dummy 

or 

comb. 


'Yes 

depending on 

v of TA5, save 4, 3 or 

2 

addr, 

. and XS3 

code 

and set 

‘No 

alarm 16 







-Yes 

save CW and XS3 code and set "irs. 

subscr. 

var." = 1 



No 

alarm 16 







-Yes 

alarm 15 







No 

are we inside 

subscr. var. as well? 

<f 

Yes: 

adv. ct. 

for 

subscr. 

Yes 

alarm 15 



No: 

save CW 



No 

save CW 







-Yes 

alarm 15 







No 

are we inside 

subscr. var. as well? 

< 

Yes: 

adv. ct. 

for 

subscr. 

Yes 

alarm 15 



No: 

alarm 20 


No 

are we inside 

subscr. var. as wel1? 

< 

Yes: 

adv. ct. 

for 

subscr. 

Yes 

alarm 13 go 

to EXTRA 


No: 

save CW 



No 

" 13, " 

" get next symbol 







rYess alarm 22 
‘“No: save CW 


No: save CW 
fYes: alarm 22 
^No: save CW 


© - 


(67) is next symbol (? <JYes alarm 15 

No adv. count 

Yes Alarm 15 


-64 " 

-63 " 

"Other" 


©- 


lNot in list 
■Jor in list 


(? < 
c? ^ 

(? <£no 
alarm 13 


Yes Alarm 15 
v. countc 
larm 13 
" 13, 


checks and 

put it in 

comb. 

list 

subscr. 

Is 

it >4? 

<Yes: 

alarm 22 




^ No: 

save CW 

subscr. 

Is 

it > 4? 

< Yes: 

Alarm 22 




^ No: 

save CW 

subscr. 

Is 

it > 4? 

< Yes: 

alarm 22 

EXTRA 



^ No: 

save CW 

get next 

symbol 




V 

I 


I 


II 

III 


III 

III 


IV 

IV 

IV 



Compute String-Out 
Regions 


RE 

IJ4400 

RE 

JA4410 

RE 

JB5234 

RE 

JC5770 

RE 

JI6114 

RE 

JJ6126 

RE 

JK6145 

RE 

JL6157 

RE 

JM6167 

RE 

J06202 

RE 

JP6221 

RE 

JQ6243 

RE 

JR6257 

RE 

JS6276 

RE 

JT6310 

RE 

JU6322 

RE 

JV6340 

RE 

JW6350 

RE 

JX6363 

RE 

JY6401 

RE 

JZ6413 

RE 

IA6426 

RE 

IB6446 

RE 

IC6466 

RE 

ID6506 

RE 

IE6527 

RE 

IH6551 

RE 

IF6565 

RE 

IG6603 

RE 

IK6617 

RE 

II6631 

RE 

TJ6643 

RE 

JD6673 


String-Out Subroutine regions are also needed to assemble this tape 



IA 

IJ 


0 

MJ 

0 

CT 

1 

RP 

10035 

IJ3 \ 

2 

TP 

JC20 

JD J 

3 

TP 

JC1 

EW3 

4 

RJ 

SY 

SY1 

5 

EJ 

JC2 

JA567 

6 

MJ 

0 

JA 


CA 

IJ7 



Exit 

Clear temporaries 
Set EW3 

Get first symbol 

Is it AND? When yes, go to alarm 23. 
No, go to JA 
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Not Alpha¬ 
numeric 


Go to END 
Neg. Sign 


Comma , 
Semicolon ; 


Opening 

Parent. 


Closing 

Parent. 



IA 

JA 



0 

TP 

JC14 

A 

"40 0 0" —>A 

1 

EJ 

SY7 

JA4 1 

l Is first symbol alpha-numeric? 

2 

EJ 

SY11 

JA4 J 

r 

3 

MJ 

0 

JA567 

No: go to alarm 23 

4 

RJ 

SY 

SY1 

Get next symbol 

5 

EJ 

JC30 

JA21 

Is next symbol A .? 

6 

TP 

JC14 

A 

Put "40 0 0" — ^ A 

7 

EJ 

SZ7 

JA165 1 

Is symbol at hand alpha-numeric? 

10 

EJ 

SZ11 

JA165 J 


11 

TP 

JC20 

JD 

Clear word index 

12 

TP 

SZ2 

A 

Put XS3 code of word at hand —»A 

13 

EJ 

JC34 

JA36 

r 

14 

EJ 

JC35 

JA36 


15 

EJ 

JC13 

JA47 

( 

16 

EJ 

JC27 

JA56 

j 

17 

RP 

20002 

JA413 1 

1 - (upper and lower case) 

20 

EJ 

JC104 

JA23 J 

r 

21 

TV 

JC61 

JA160 

Set exit for GO TO END 

22 

MJ 

0 

JA6 

Go to check symbol at hand 

23 

TP 

JC14 

A 1 

„ Has next symbol a letter? 

24 

EJ 

SZ12 

JA612 J 


25 

TP 

JC20 

A 1 

Are we inside pseudo op? 

26 

TJ 

JD17 

JA32 j 


27 

TJ 

JD16 

JA612 

Are we inside subscr. var.? 

30 

TJ 

JD15 

JA34 

Are we inside funct.? 

31 

MJ 

0 

JA612 

None of them: go to alarm 1 

32 

TJ 

SY6 

JA34 

Has next symbol decimal point? 

33 

MJ 

0 

JA612 

Go to alarm 1 

34 

TV 

JC5 

JA246 

Set for handl. neg. no. 

35 

MJ 

0 

JA157 

Go to get next symbol 

36 

TP 

SY2 

A 1 

l Is next symbol (? 

37 

EJ 

JC13 

JA417 J 

1 

40 

EJ 

JC27 

JA425 

Is next symbol )? 

41 

EJ 

JC34 

JA425 

Is next symbol ;? 

42 

EJ 

JC35 

JA425 

Is next symbol ,? 

43 

TP 

JC20 

A 1 

Is level meter ^ o? 

44 

TJ 

JD1 

JA157 . 


45 

RJ 

JB400 

JB371 

Place zero string-out word and clear 





counters 

46 

MJ 

0 

JA157 

Go to get next string -out word 

47 

RA 

JD1 

JC21 

Adv. Level Meter 

50 

TP 

SY2 

A 

1 Is next symbol (? 

51 

EJ 

X13 

JA417 , 

[ 

52 

EJ 

JC27 

JA425 

Is next symbol ) ? 

53 

EJ 

JC34 

JA425 

Is next symbol ;? 

54 

EJ 

JC35 

JA425 

Is next symbol ,? 

55 

MJ 

0 

JA401 

Go to further checks 

56 

RS 

JD1 

JC21 

Reduce Level Meter 

57 

SJ 

JA60 

JA62 

Is Level Meter > 0? 

60 

TP 

JC20 

JD1 

No Level Meter neg; clear Level Meter 

61 

MJ 

0 

JA427 

Go to alarm 4 
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Pseudo 

Operation 


Before 
GO TO END 
GO TO END 


62 

TP 

JC20 

A 1 

[ Are we not inside 

subscr. var.? 

63 

EJ 

JD16 

JA76 J 

I 



64 

TP 

JC20 

JD16 

We are inside; 

clear index "inside subscr," 

65 

RS 

JD22 

JD20 

Subtract counted 

no. of subscr. from 





given no. in storage. 

66 

ZJ 

JA67 

JA72 

Is no. of subscripts correct? 

67 

TP 

JC20 

JD20 1 

1 No, clear counter 

of subscr. and stored 

70 

TP 

JC20 

JD22 J 

I no. of subscript. 


71 

MJ 

0 

JA433 

Go to alarm 5 



72 

TP 

JC20 

JD20 

Yes, no. of subscr. O.K.: clear counter 





of subscripts 



73 

TP 

SY2 

A 1 

1 Is next symbol 

(? 

74 

EJ 

JC13 

JA417J 

I Go to alarm 2 



75 

MJ 

0 

JA43 




76 

EJ 

JD15 

JA115 

Are we not inside 

funct.? 

77 

RS 

JD32 

JD33 1 

[ Is set-up format 

of funct. = given format? 

100 

ZJ 

JA120 

JA121J 

1 



101 

EJ 

JD24 

JA113 

Come from JA115 

1 • 

Was pseudo oper. not in 





Combination List? 

102 

TP 

JC67 

Q ] 

Mask out last 2 

digits 

103 

QT 

JD31 

A J 




104 

EJ 

JD21 

JB505 

Is no. of operands in pseudo op. correct? 

105 

RJ 

JB414 

JB411 

Clear Level Meter 

■ and counter of elements 





and inside pseudo 

106 

MJ 

0 

JA440 

Go to alarm 6-1/2 

107 

RJ 

JB414 

JB412 

Clear index inside pseudo and counter of 





elements. 



110 

TP 

JC20 

A ] 

1 Is Level Meter 

— 

0? 

111 

EJ 

JD1 

JA72 J 

r 



112 

MJ 

0 

JA576 

Go to alarm (4) 

» 

emergency exit 

113 

RS 

JD21 

JC31 

Come from JA101 

> 

check for no. of ele¬ 







ments £ 20^0 

114 

SJ 

JA107 

JA445 




115 

TJ 

JD17 

JA101 

Come from JA761 

[Are we really in pseudo 





! 


°P-? When not, some¬ 

116 

MJ 

0 

JA576 

- 


thing wrong, emergency 

117 

0 

0 

0 

Free 


exit 

120 

RJ 

JB424 

JA564 

Alarm 5-1/2 



121 

TP 

JC20 

JD15 

Clear counter " 

inside funct." 

122 

MJ 

0 

JA72 




123 

RA 

JD1 

JC21 




124 

RJ 

JB461 

JB4531 

I Put XS3 code of 

A . in string-out after 

125 

RJ 

EW 

EW1 J 

I checking whether 

zero word was already 





placed 



126 

TP 

JC20 

A 1 

I Is Level Meter 

= 

0? 

127 

TJ 

JD1 

JA451J 

r 



130 

RS 

EW3 

JC62 




131 

AT 

JC21 

A j 

r Set no, of words 

in string-out in v of WLO 

132 

TV 

A 

WL J 




133 

RJ 

WT 

WT1 

Bring string-out 

to tape 

134 

MJ 

0 

IJ 

Jump to EXIT 
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Before 

135 

RJ 

JB410 

JB406 

EXTRA 





EXTRA 

136 

TP 

JC20 

JD30 


137 

RJ 

SY 

SY1 


140 

TP 

SZ2 

A 


141 

EJ 

JC13 

JA146 


142 

EJ 

JC27 

JA150 


143 

TP 

SY2 

A 


144 

EJ 

JC30 

JA123 


145 

MJ 

0 

JA137 


146 

RA 

JD30 

JC21 


147 

MJ 

0 

JA143 


150 

TP 

JC21 

A 


151 

TJ 

JD30 

JA155 


152 

TP 

JC30 

A 


153 

EJ 

SY2 

JA124 


154 

MJ 

0 

JA157 


155 

RS 

JD30 

JC21 


156 

MJ 

0 

JA143 


157 

MJ 

0 

JA160 


160 

MJ 

0 

JA4 


161 

RJ 

JB410 

JB406 


162 

MJ 

0 

JA160 


163 

RJ 

JB410 

JB406 


164 

MJ 

0 

JA157 


165 

TP 

SZ2 

A 


166 

EJ 

JC2 

JA173 


IbY 

TP 

JC20 

A 


170 

EJ 

JD 

JA177 


171 

EJ 

JD1 

JA553 


172 

MJ 

0 

JA546 


173 

TP 

JC20 

JD 


174 

TP 

JC20 

A 


175 

EJ 

JD1 

JA36 


176 

MJ 

0 

JA561 


177 

TP 

JC21 

JD 


200 

TP 

JC14 

A 


201 

EJ 

SZ12 

JA261 


202 

TP 

SY2 

A 


203 

EJ 

JC13 

JA453 


204 

TP 

JC20 

A 


205 

EJ 

JD1 

JA461 


206 

EJ 

JD16 

JA232 


207 

RA 

JD20 

JC21 


210 

TP 

JC20 

A 


211 

EJ 

JD15 

JA227 


212 

TP 

JC21 

A 


213 

TJ 

JD20 

JA257 

Fixed Point 

214 

RJ 

JB405 

JB401 

No. 






215 

RJ 

RD 

RD1 


Restore SY and SZ 

Put 0 in extra Level Meter 
Get next symbol 
Is symbol at hand (? 

Is symbol at hand )? 

Is next symbol A .? 


Adv. extra Level Meter 

Go to check next symbol A . ? 

| Is extra Level Meter >1? 

| Is next symbol A .? 

Restore and go to get next symbol 

Reduce extra Level Meter 

Jump to check next symbol A .? 

Before "go to get next symbol" 

Go to get next symbol 
Restore SY and SZ 
Go directly to get next symbol 
Restore SY and SZ 

Go to "before go to get next symbol" 
(used as const, for JB515) 

| Is symbol at hand AND? 

j Is word Index = 0? 

Is Level Meter = 0? Yes; warning alarm 
2 

Go to warning alarm 1 
Clear word index 
| Is Level Meter = 0? 

Go to warning alarm 3 
Put 1 in word index 
| Has symbol at hand a letter? 

| Is next symbol (? 

| Is level = 0? 

Are we not inside subscr. var.? 

Adv. counter for subscripts by 1 
1 Are we not inside function? 

| Is counter of subscripts > 1? 

Save SY2-14 in JD2-14 and put SZ2-14 
—> SY2-14 

Check fixed pt. const, format 
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216 

TP 

SZ2 

RS4 


217 

RJ 

RS2 

RS 


220 

TP 

RS3 

A 


221 

RJ 

GW 

GW1 


222 

TP 

Q 

EW2 


223 

RJ 

EW 

EW1 


224 

MJ 

0 

JB222 


225 

RA 

JD21 

JC21 


226 

MJ 

0 

JA235 


227 

TP 

JC24 

A 


230 

TJ 

JD20 

JA257 


231 

MJ 

0 

JA214 


232 

EJ 

JD17 

JA240 


233 

TP 

JC21 

A 


234 

EJ 

JD1 

JA225 


235 

TP 

JC20 

A 


236 

TJ 

SZ6 

JA241 


237 

MJ 

0 

JA214 


240 

TV 

JC101 

JB222 


241 

RJ 

JB405 

JB401 


242 

RJ 

RB 

RBI 


243 

TP 

SY2 

GG4 


244 

TP 

SY3 

GG5 


245 

RJ 

GG2 

GG 


246 

RJ 

JA246 

JA247 


247 

TP 

GG3 

A 


250 

MJ 

0 

JA221 


251 

TN 

GG3 

A 


252 

MJ 

0 

JA221 

Exit When 

253 

RJ 

JB525 

JB523 

Case(5)in 

254 

QT 

JC12 

A 

Dummy List 

255 

EJ 

JC43 

JA317 


256 

MJ 

0 

JA502 


257 

RJ 

JA436 

JA433 


260 

MJ 

0 

JA160 


261 

EJ 

SZ7 

JA263 


262 

MJ 

0 

JA476 


263 

RJ 

JB405 

JB401 


264 

TP 

JC20 

A 


265 

MJ 

0 

JB433 


266 

EJ 

TS4 

JA274 


267 

TV 

JC64 

JB4 


270 

TV 

JC73 

JB2 


271 

RJ 

JB5 

JB 


272 

TV 

JC63 

JB4 


273 

MJ 

0 

JB325 


274 

RJ 

TA 

TA1 

Not in List 

275 

MJ 

0 

JA302 

In list 

276 

TP 

JC44 

0 


277 

QT 

TA4 

A 


Convert to octal (fixed point) 

Get CW for const, from Const. List 

Bring CW to string-out 

Jump to possible funct. jump out 
Adv. counter of elements in pseudo 

Is counter of subscripts > 4? 


Are we not inside pseudo? 
Is Level Meter = 1? 

Has no. a decimal point? 


Set jump for exit out of function 
Store SY, SZ 

Check format floating point constant 

Convert to floating point octal 

Inserted for eventual TN GG3 GG3 (?) 

Go to assign CW and store it 

Case of neg. floating point no. 

Mask out CW code of CW found in Dummy 
List 

Is it 61? Case(5)in Dummy List 
No, go to alarm 13 

Case fixed pt. const, no. of subscr. 
alarm 5 in RJ 

(JA160 OK since coming from JA230, there 
was SY2-14 not yet changed) 

Is first char, a letter? 

Store SY —> JD and SZ —> SY. 

Is Level Meter ^ 0? 

Jump to subroutine to check whether VARY 
OK 

Are we not in subprogram? (TS4 =0?) 

Set jump to alarm 21 in JB4 (JA312) 

Set exit in case it is in Dummy List 

Get CW from Dummy List or Comb. List 

Restore address JB4 

Case (5)in Comb. List 

Get file from Comb. List 

Pseudo oper. not in list; go to put it in 

Mask out first digit of CW —*A 
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300 

301 

302 

303 

304 

305 

306 

307 

310 

311 

312 

313 


Case CW 314 

4_315 

Pseudo Op, 316 

Case CW 317 

61 320 


321 

322 

323 

324 

325 

326 

327 

330 

331 

332 

333 

334 

335 

336 

337 

340 

341 

342 

343 

344 

345 

346 

347 

350 

351 

352 

353 

354 

355 

356 

357 


EJ 

JC45 

JA314 

MJ 

0 

JB303 

TP 

JC13 

A 

EJ 

JD2 

JB45 

TP 

SZ2 

TF1 

TP 

JC111 

TF 

TP 

VB 

A 

AT 

JC36 

TF2 

RJ 

TE 

TE1 

MJ 

0 

JA274 

TV 

JC63 

JB4 

MJ 

0 

JA542 

TP 

JC13 

A 

EJ 

JD2 

JB470 

MJ 

0 

JB262 

TP 

JC13 

A 

EJ 

JD2 

JA322 

MJ 

0 

JA524 

TP 

JC23 

JD82 

RJ 

JB153 

JB145 

TV 

JC20 

JB253 

TP 

JC21 

JD15 

TP 

TS2 

JD26 

TP 

TS3 

EW2 

MJ 

0 

JB221 

EJ 

J017 

JA343 

TP 

JC21 

A 

EJ 

JD1 

JB526 

EJ 

JD16 

JA341 

RJ 

JB5 

JB3 

MJ 

0 

JB317 

EJ 

JD16 

JA610 

MJ 

0 

JA363 

RJ 

JB5 

JB3 

MJ 

0 

JB360 

EJ 

JD15 

JA337 

EJ 

JD16 

JA353 

EJ 

TS4 

JA351 

TV 

JC65 

JB2 

RJ 

JB5 

JB 

MJ 

0 

JB352 

RJ 

JB5 

JB3 

MJ 

0 

JA350 

TV 

JC101 

JB222 

TP 

JC20 

A 

EJ 

TS4 

JA361 

TV 

JC74 

JB2 

RJ 

JB5 

JB 


} 

} 


} 

) 


Is CW 4- type (pseudo)? 

Case(l)i n list 

Is next symbol (? 

Go to put pseudo op. in Comb. List 
Shortcut: Pseudo op. without following 
parent. 

Place CW 

Bring list in Comb. List 

Go again to get list from Comb. List 

Restore addr. JB4 

Jump to alarm 21 

Case pseudo in listj is next symbol (? 

Jump to handle pseudo without following 
parent. 

Case CW 61 in Dummy List 1 is next 

J symbol (? 

No, go to alarm 17 

Set counter of elements in funct. to 3 
Save format of given funct. 

Clear shift count 

Set index "inside funct." to 1 

Save XS3 code 

Place CW in string-out and go to get 
next 

Are we not inside pseudo op? 

Is Level Meter = 1? (only inside 
pseudo?) 

Are we inside subscr. variable? 

Get file from Comb. List or put it in 
when needed 
Case (4)in list 

Are we not inside subscr. var.? 

—> alarm 

Go on to check for TS4 
Get file from Comb. List 
Case ^64) in list 
Are wV-not inside funct,? 

Are we not inside subscr. var.? 

Is TS4 = 0? 

Set exit for case it is in Dummy List 

file from dummy or Comb. List 
Case in list (= 2^4 case) 

Get cVrrom Comb. List 

Set jump-out for funct. (to JB240) 

Put zero—>A 
Is TS4 = 0? 

Set exit in case it is in Dummy List 
Get CW from Dummy List or Comb. List 


472 




360 

MJ 

0 

JB333 


361 

RJ 

JB5 

JB3 


362 

MJ 

0 

JB311 


363 

EJ 

TS4 

JA367 


364 

TV 

JC66 

JB2 


365 

RJ 

JB5 

JB 


366 

MJ 

0 

JB355 


367 

RJ 

JB5 

JB3 


370 

MJ 

0 

JB355 

Exit when 

371 

TP 

TS3 

0 

case(6)in 

372 

QT 

JC12 

A 

Dummy List 

373 

EJ 

JC42 

JA376 


374 

EJ 

JC11 

JA407 


375 

MJ 

0 

JA502 


376 

TP 

JC13 

A 


377 

EJ 

JD2 

JB162 


400 

MJ 

0 

JA520 


401 

TP 

JC20 

A 


402 

TJ 

JD15 

JA157 


403 

TJ 

JD16 

JA157 


404 

TJ 

JD17 

JA157 


405 

MJ 

0 

JA576 


406 

0 

0 

0 


407 

TP 

JC13 

A 


410 

EJ 

JD2 

JA514 


411 

TP 

TS3 

TA4 


412 

MJ 

0 

JB531 

Alarm 

413 

TP 

SZ2 

JI4 

Entries 

414 

TU 

JI 

JB420 


415 

RJ 

JB424 

JB415 


416 

MJ 

0 

JA160 


417 

TP 

SZ2 

JJ5 


420 

TP 

SY2 

JJ7 


421 

TU 

JJ 

JB420 


422 

RJ 

JB424 

JB415 


423 

RJ 

JA423 

JA424 


424 

MJ 

0 

JA157 


425 

RJ 

JA423 

JA417 


426 

MJ 

0 

JA43 


427 

TU 

JL 

JB420 


430 

RJ 

JB424 

JB415 


431 

RJ 

JA431 

JA432 


432 

MJ 

0 

JA43 


433 

TP 

JD27 

JM4 


434 

TU 

JM 

JB420 


435 

RJ 

JB424 

JB415 


436 

RJ 

JA436 

JA437 


437 

MJ 

0 

JA43 


440 

TP 

JD25 

IA7 


441 

TU 

IA 

JB420 


442 

RJ 

JB424 

JB415 


443 

RJ 

JA443 

JA444 


444 

MJ 

0 

JA107 


Case(6) in Comb. List 
Get CW from Comb. List 
Case(2)list 
Is TS4 = 0 ? 

Set exit to uw when in Dummy List 
Get CW from Dummy List or Comb. List 
Case in list 
Get CW-?rom Comb. List 
Case in list 

Mask otr? CW code-case ©in Dummy List 

Is it 76 — ? 

Is it 63 — ? 

Go to alarm 13 
Is next symbol ( ? 

Jump to alarm 16 
Come from JA55, zero > A 
When open parenthesis found: 

‘ Am I really inside something? 

No, jump to alarm 4 
Free 

Is next symbol ( ? 

Put CW from dummy result to Comb, result 


Alarm 1 


Alarm 2 


Alarm 2.5 or 3 


Alarm 4 


Alarm 5 


Alarm 6-1/2 or 18.5 
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445 

TP 

TJ1 

JK5 





446 

TU 

JK 

JB420 


► 

Alarm 6-3/4 


447 

RJ 

JB424 

JB415 





450 

MJ 

0 

JA107 





451 

RJ 

JA431 

JA427 

1 

\ 

Alarm 4.5 or 

7 

452 

MJ 

0 

JA134 





453 

TP 

SZ2 

JQ4 





454 

TP 

SZ3 

JQ5 





455 

TU 

JQ 

JB420 


* 

Alarm 8 


456 

RJ 

JB424 

JB415 





457 

TV 

X102 

JA246 





460 

MJ 

0 

JA136 





461 

TP 

SZ2 

JR4 





462 

TP 

SZ3 

JR5 





463 

TU 

JR 

JB420 



Alarm 9 


464 

RJ 

JB424 

JB415 





465 

TV 

JC102 

JA246 





466 

MJ 

0 

JA157 

J 




467 

RJ 

JA436 

JA433 





470 

TV 

JC102 

JA246 

1 

f 

Alarm 5.5 or 

10 

471 

MJ 

0 

JA157 

J 




472 

TP 

SZ2 

JT6 

1 




473 

TU 

JT 

JB420 


* 

Alarm 11 


474 

RJ 

JB424 

JB415 





475 

MJ 

0 

30000 

d 




476 

TP 

SZ2 

JU6 





477 

TU 

JU 

JB420 



Alarm 12 


500 

RJ 

JB424 

JB415 





501 

MJ 

n 

jo 4 50 





502 

TP 

SZ2 

JV4 





503 

TU 

JV 

JB420 





504 

RJ 

JB424 

JB415 


► 

Alarm 13 


505 

RJ 

JA505 

JA506 





506 

MJ 

0 

JB445 

4 




507 

TP 

SZ2 

JW4 





510 

TU 

JW 

JB420 





511 

RJ 

JB424 

JB415 


» 

Alarm 14 


512 

RJ 

JA512 

JA513 





513 

MJ 

0 

JB445 





514 

TP 

SZ2 

JX6 





515 

TU 

JX 

JB420 



Alarm 15 


516 

RJ 

JB424 

JB415 





517 

MJ 

0 

JA135 

d 




520 

TP 

SZ2 

JY6 





521 

TU 

JY 

JB420 


> 

Alarm 16 


522 

RJ 

JB424 

JB415 





523 

MJ 

0 

JA163 





524 

TP 

SZ2 

JZ7 





525 

TU 

JZ 

JB420 


* 

Alarm 17 


526 

RJ 

JB424 

JB415 





527 

MJ 

0 

JA163 

> 




530 

TP 

SZ2 

IA7 

1 

\ 

Alarm 18 


531 

MJ 

0 

JA441 

J 

1 
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532 

TP 

SZ2 

IB4 





533 

TP 

JD27 

IB 10 


Alarm 19 



534 

TU 

IB 

JB420 





535 

MJ 

0 

JB415 


Alarm 19-1/2 Set RJ exit 

in 

JB424 

536 

TP 

SZ2 

IC4 





537 

TP 

JD26 

IC10 


Alarm 20 



540 

TU 

IC 

JB420 





541 

MJ 

0 

JB415 


Alarm 20-1/2 Set RJ exit 

in 

JB422 

542 

TP 

SZ2 

ID10 





543 

TU 

ID 

JB420 


Alarm 21 



544 

RJ 

JB424 

JB415 





545 

MJ 

0 

JB445 





546 

TP 

SZ2 

IF6 





547 

TP 

SZ3 

IF7 




♦ 

550 

TU 

IF 

JB420 


• Warning alarm 1 



551 

RJ 

JB424 

JB425 





552 

MJ 

0 

JA177 





553 

TP 

SZ2 

IG6 





554 

TP 

SZ3 

IG7 





555 

TU 

IG 

JB420 


• Warning alarm 2 



556 

RJ 

JB424 

JB425 





557 

RJ 

JB400 

JB371 





560 

MJ 

0 

JA177 





561 

TU 

IK 

JB420 


1 



562 

RJ 

JB424 

JB425 


r Warning alarm 3 



563 

MJ 

0 

JA36 


1 



564 

TP 

JD26 

J06 





565 

TU 

JO 

JB420 

! 

i 

■ Alarm 5-1/2 



566 

MJ 

0 

JB415 





567 

TU 

IH 

JB420 

1 




570 

RJ 

JB424 

JB415 

i 

i 

• Alarm 23 



571 

MJ 

0 

JA134 

j 




572 

TP 

SZ2 

JP2 

1 




573 

TU 

JP 

JB420 

i 

” Alarm 7 or 12-1/2 



574 

RJ 

JB424 

JB415 





575 

MJ 

0 

JB443 

4 




576 

RJ 

JA431 

JA60 

1 

l Alarm 6 or 4,55 



577 

MJ 

0 

JA72 

J 

I 



600 

TP 

SZ2 

JS6 





601 

TU 

JS 

JB420 


► Alarm 10 or 17-1/2 



602 

RJ 

JB424 

JB415 





603 

MJ 

0 

JA163 

J 




604 

TP 

SZ2 

IE 4 

"j 




605 

TP 

JD27 

IE 10 

i 

- Alarm 22 



606 

TU 

IE 

JB420 

i 




607 

MJ 

0 

JB415 

j 




610 

RJ 

JA431 

JA60 


\ Alarm 4-1/10 



611 

MJ 

0 

JA135 

j 




612 

TP 

JC1 

JI4 





613 

TP 

JC123 

0 





614 

SP 

SY2 

102 


\ Alarm entr. 1 for neg. sign 


615 

QS 

A 

JI4 





616 

MJ 

0 

JA414 

j 
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617 

TV 

JB231 

JB223 

620 

TP 

SZ2 

JT6 

621 

TU 

JT 

JB420 

622 

RJ 

JB424 

JB415 

623 

MJ 

0 

JA135 


CA 

JA624 



Alarm 11 1/2 


476 




IA 

JB 



0 

RJ 

TS 

TS1 

Get file from Dummy List Get file from 

1 

MJ 

0 

JB3 

not in Dummy List Comb, or Dummy 





List 

2 

MJ 

0 

30000 

RJ-come-back when in Dummy List 

3 

RJ 

TA 

TA1 

Get file from Comb. List 

4 

MJ 

0 

JB6 

Not in Comb. List: have CW made 

5 

MJ 

0 

30000 

RJ-come-back when in Comb. List 

6 

TP 

JC15 

Q 

Set mask in Q Add symbol to 





Comb. List 

7 

TP 

JC13 

A 1 

, Is next symbol (? 

10 

EJ 

JD2 

JA542 J 


11 

QT 

SZ2 

A 1 

1 Mask out XS3 code of first digit 

12 

TP 

A 

A J 

1 

13 

RP 

20005 

JB15 1 

, Is it I, J, K, L, M? 

14 

EJ 

JC116 

JB24 J 


15 

TP 

JC20 

A 1 

Are we not inside subscr. var.? 

16 

EJ 

JD16 

JB22 J 


17 

RJ 

JB424 

JA532 

Print alarm (subscript not starting with 

I, J, K, L, M. 

20 

RA 

JD20 

X21 

Adv. No. of subscr. (in order to go on 
checking format of subscr. var.) 

21 

MJ 

0 

JA161 

Go and get next symbol (avoid funct. check 
because subscr. not interesting anyway) 

22 

TU 

JC6 

JB42 

Setting for floating point variable. 

23 

MJ 

0 

JB35 


24 

TP 

JC20 

A 1 

1 Var. start with I, J, K, L, or M 

25 

EJ 

JD16 

JB30 J 

1 are we not inside subscr. var.? 

26 

MJ 

0 

JB34 

We are inside subscr. var.; jump to further 
handling. 

27 

MJ 

0 

JB34 

Free (instr. unused) 

30 

EJ 

JD15 

JB34 

We are not inside sub.: are we not inside 
funct.? 

31 

RJ 

JB422 

JA536 

Print alarm 

32 

TP 

JC26 

TA4 ] 

Put "65000" in TA4 and save it as CW in 

33 

MJ 

0 

JB220 J 

string-out (assuming floating point var. was 
meant, in order to go on checking the format 





of the function.) 

34 

TU 

JC5 

JB42 

We are not inside funct.: make fixed pt. var. 

35 

TP 

JC111 

TF 

Put 3 in u of TF 

36 

TP 

SZ2 

TF1 

Put XS3 code in TF1 

37 

TP 

JC20 

TF3 

Clear TF3 

40 

RJ 

RH 

RH1 

Check for format 

41 

RJ 

TK 

TK1 1 

l Get CW 

42 

AT 

30000 

TF2 J 

Add 64 — or 65 — (in u 200 or 216)—»TF2 

43 

RJ 

TE 

TE1 

Add new floating point or fixed point vari¬ 
able to Comb. List 

44 

MJ 

0 

JB3 

Jump to get symbol from Comb. List 

45 

TP 

SZ2 

TJ1 

Save XS3 repr. of pseudo op. Pseudo op not 
in list. 

46 

RA 

VB 

JC36 1 

> Make up CW 

47 

TP 

A 

TJ2 J 

(This TJ2 used for updating last TF address, 


later added to last bit for no. of elements, 
JB77) 


477 



50 

TP 

JC110 

TJ 

Put 2 in u and v of TFO 

51 

TV 

JC32 

JA157 

Change exit 19 

52 

RJ 

JB400 

JB376 

Place zero string-out word for filling later 

53 

TV 

EW3 

JB117 

Save addr. of string-out word for later 
placing it 

54 

TP 

JC21 

JD17 

Set index "inside pseudo" 

55 

TP 

JC20 

JD24 

Set index "pseudo was in list" to zero 
since it was not 

56 

MJ 

0 

JA161 


57 

RJ 

JB57 

JA160 

Only first time: get symbol after parent. 

60 

TP 

JDl 

A 

Put level Meter—>A 

61 

EJ 

JC21 

JB64 

Level = 1 ? 

62 

EJ 

JC20 

JB462 

Level = 0 ? 

63 

MJ 

0 

JA160 

Level > 1, go to get next 

64 

TP 

JC14 

A 

Level is 1: put "40 0 0"—>A 

65 

EJ 

SZ7 

JB104 

Is symbol at hand alpha-numeric? 

66 

EJ 

SZ11 

JB70 

Is symbol at hand a number? 

67 

MJ 

0 

JA160 

For all other symbols go to get next symbol 

70 

TP 

JC20 

A 

Has number decimal point? 

71 

TJ 

SZ6 

JB101 

72 

TU 

JC33 

JB75 

No, set addr. for format code 2 in JB75 

73 

RA 

JB47 

JC21 

Adv. for next TJ word 

74 

TV 

JB47 

JB75 

Set next TJ word address in JB75 

75 

TP 

30000 

30000 

Place next TJ word 

76 

RA 

TJ 

JC107 ] 

Adv. counters in TJ region in u 




1 

1 

(adv. count of elements) in v 

77 

RA 

TJ2 

JC21 J 


100 

MJ 

0 

JA160 


101 

TU 

JC32 

JB75 

No. with dec. pt; set address for format 





code in JB75 

102 

MJ 

0 

JB73 


103 

RJ 

TA 

TA1 

Is this used? 

104 

105 

TP 

QT 

JC12 

TA4 

Q 

A 

Mask out CW 

106 

EJ 

JC25 

JB112 

Is CW 66? 

107 

EJ 

JC26 

JB101 

Is CW 65? 

110 

EJ 

JC10 

JB72 

Is CW 64? 

111 

MJ 

0 

JB114 

CW 77 left 

112 

TU 

JC37 

JB75 

Case funct. (66) 

113 

MJ 

0 

JB73 

Bring TA5 in next TF address. 

114 

SP 

TA5 

36 1 

i Case subscr. var. (77) set up "No. of 

115 

AT 

JC24 

TA5 J 

1 subscr. 0 4" and store in TA5 (TA5 used 

for temp, storage) 

116 

MJ 

0 

JB112 


117 

TP 

TF2 

30000 

Come from JB462/463 (= patch to JB62) 

Put CW in saved str. address (set by JB53) 

120 

RJ 

TE 

TE1 

Finish up bringing pseudo op in Comb. List 

121 

TV 

JC6 

JB57 

Restore 120 = JB57 for next pseudo not in 
list 

122 

TV 

JC6 

JA157 

Restore exit in "bef. bef. next" 

123 

TV 

JC72 

JB47 

Restore JB47 to TF2 in v 

124 

MJ 

0 

JA160 

(Could go to 19 or 20 since exit out of 19 
is restored) 
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125 

126 

TP 

EJ 

JC13 

JD2 

A 1 

JB136 J 

■ Next symbol ( ? 

Subroutine for equal 
ity jump series 

127 

TP 

TA4 

Q ] 

, Mask out CW ind. 



130 

QT 

JC12 

A J 




131 

EJ 

JC25 

30000 

66? 



132 

EJ 

JC26 

30000 

65? 



133 

EJ 

JC10 

30000 

64? 

r No ( following 

134 

EJ 

JC12 

JA520 

77? 



135 

MJ 

0 

JA502 

Others? 



136 

TP 

TA4 

Q 1 

• Mask out CW ind. j 



137 

QT 

JC12 

A J 



140 

EJ 

JC12 

30000 

77? 



141 

EJ 

JC25 

30000 

66? 



142 

EJ 

JC26 

JA514 

65? 

f With ( following 

143 

EJ 

JC10 

JA514 

64? 



144 

MJ 

0 

JA502 

Others? j 



145 

TU 

TS17 

JB152 

Entry for 61 funct. 


146 

RA 

JB152 

JC3 




147 

MJ 

0 

JB151 




150 

TU 

JC37 

JB152 

Entry for 66 funct. , 

► Store given 

151 

TP 

JC20 

JD33 

Clear JD33 


format of 

152 

TV 

30000 

JD33 

Store format of funct. 

function 

153 

MJ 

0 

30000 

Exit for RJ use 

j 


154 

TP 

TA3 

JD26 

Save XS3 code in 
Handling 66 

funct. 

XS3 code-storage 

155 

TP 

JC23 

JD32 

Put "3" in format 

of elements (for format 





"funct.") 



156 

RJ 

JB153 

JB150 

Go to store given 

funct 

. format. 

157 

TV 

JC20 

JB253 

Clear shift count 

for next counted element 

160 

TP 

JC21 

JD15 

Set "inside funct 

to 

1 

161 

MJ 

0 

JB220 

Go to save CW 

1 Handling 76X 
. to 1. 

162 

TP 

JC21 

JD16 

Set inside subscr 

163 

TP 

TS2 

JD27 

Save XS3 code in 

subscr 

. var. XS3 code 

164 

TP 

JC75 

Q 1 

1 storage 



165 

QT 

TS3 

JD22 

r Save no. of elements in 

v of JD22 

166 

LQ 

JD22 

36 J 

i 



167 

MJ 

0 

JA327 

Go to save CW 



170 

171 

TP 

EJ 

JC20 

JD16 

A 1 

JB521 J 

" Are we not inside 

subscr. 

subscript var.? Handl. 

172 

RA 

JD20 

JC21 

Adv. counter of subscr. 

by 1 

173 

TJ 

JC22 

JB220 

Is 2 > no. of subscripts? (maximal 1) 

174 

175 

RJ 

MJ 

JB424 

0 

JA604 1 
JA161 J 

• Jump to alarm 22 

(exit 

not via possible 

funct. jump out, 

since 

inside subscripted 





var. not of interest for funct. format) 

176 

RA 

JD20 

JC21 

Adv. counter of subscr. 

by 1 

177 

TJ 

JC7 

JB220 

Is 5 > no. of subscripts (max. 4) ? 

200 

MJ 

0 

JB174 

No, jump to alarm 

22 via JB174 

201 

TP 

TA3 

JD27 

Save XS3 code 



202 

TP 

JC21 

JD16 

Set "inside subscr." to 

1 

203 

204 

TP 

QT 

JC40 

TA5 

Q 1 

JD22 j 

[ Store no. of subscripts 
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205 

EJ 

JC21 

JB224 


Is No. of subscr. = 1 ? 


206 

TJ 

JC24 

JB232 


Is 4 > no. of subscr.? (case 2 or 3 
subscr.) 


207 

MJ 

0 

JB235 


Case 4 subscripts 

VII 

210 

TP 

JC21 

JD17 


Set "inside pseudo" to 1 


211 

nnn 

±ST 

T»rt O 

J-rtO 

Tnoc 


Save XS3 code in pseudo op XS3 code 
storage 


212 

TP 

TA4 

JD31 


Save CW code in pseudo op CW code storage 


213 

TP 

JC21 

JD24 


Set index "pseudo was in list" 


214 

MJ 

0 

JB220 


Go to save CW 

VI 

215 

TP 

JC20 

A 


Clear A 


216 

EJ 

JD16 

JB220 


Are we not inside subscr. var.? 


217 

MJ 

0 

JB176 


Jump to IV 

Save 

220 

TP 

TA4 

EW2 


Save 1 CW 

1 CW 

221 

RJ 

EW 

EW1 


RJ for exit with funct. (jumps to JB240) 


222 

n t 

no 

rno nn 

TO O O O 

OP £L<LO 


— J .. n A 4 U •» Vv n /Ml 1-1 n TD A "7 f\ «-* ri rtwl t XT >• A P t 

diiu uacu uy yscuuo ao o r v 


223 

MJ 

0 

JA163 j 


by JA617 

Save 

224 

RJ 

JB223 

JB220 ' 



2 

225 

RA 

JB220 

JC 



CW* s 

226 

RJ 

JB223 

JB220 


Save 2 CW’s 


227 

TU 

JC41 

JB220 


Restore JB220 


230 

TV 

JC41 

JB223 


Restore JB223 


231 

MJ 

0 

JA163 . 



Save 

232 

RJ 

JB223 

JB220 ' 



3 

233 

RA 

JB220 

JC 

► 

Save 3 CW’s 

CW’s 

234 

MJ 

0 

JB224 . 



Save 

235 

RJ 

JB223 

JB220 ' 


Save 4 CW’s Form funct. format for 

4 

236 

RA 

JB220 

JC 

f 

comp, with given one. 

CW’s 

237 

MJ 

0 

JB232 J 

1 



240 

TU 

EW3 

JB242 ' 

, 

Come from JB222 (when funct. jump out 
was set) 


241 

TP 

JC12 

0 


Mask out CW code of CW just placed in 


242 

QT 

30000 

A J 


string-out 


243 

EJ 

JC13 

JB256 


77 


244 

EJ 

JC42 

JB256 


76 


245 

EJ 

JC77 

JB260 


67 


246 

EJ 

JC26 

JB260 


65 


247 

EJ 

JC1 

JB260 


63 


250 

MJ 

0 

JB223 


Others (ignore and go on) 


251 

RA 

JB253 

JC23 


Come from JB256 or JB260. Adv. shift count 


252 

TP 

30000 

Q 


Put 1 or 4 in Q 


253 

LQ 

Q 

30000 


Shift (set to 0 when funct. symbol found) 


254 

RA 

JD32 

Q 


Add code no. to "counter" of element in funct 


255 

MJ 

0 

JB223 


Go back to exit of "save CW" 


256 

TU 

JC72 

JB252 1 

L 

Cases 77, 76, (4) 


257 

MJ 

0 

JB251 j 

[ 



260 

TU 

JC73 

JB252 1 


Cases 67, 65, 63 (1) (when 63 and inside 


261 

MJ 

0 

JB251 J 


sub. we skip the funct. jump out) 


262 

TP 

JC67 

Q 1 

l 

Come from JA316 (entr. set from v in 


263 

QT 

TA4 

A 

r 

JC70) Mask out last 2 digits for pseudo 
(to check whether with operands or not) 


264 

ZJ 

JA530 

JB220 


When last 2 bits = 0, go to put CW in 


string-out 


480 



© 

© 





Case 63 
Case 64 


265 

TP 

JC12 

Q 1 

1 Come from JB307 or JB331 

266 

QT 

TA4 

A J 

1 Mask out first 2 bits of symbol at hand 

(after it came out of Comb. List) 

267 

EJ 

JC12 

JB274 

77 



270 

EJ 

JC25 

JB274 

66 



271 

EJ 

JC26 

JB274 

65 



272 

EJ 

JC10 

JB274 

64 



273 

MJ 

0 

30000 




274 

TP 

JC71 

Q 1 




275 

QT 

TA5 

A , 

r Is symbol defined by special equation? 

276 

ZJ 

JB273 

JA507 J 




277 

RJ 

JB223 

JB220 

Come from JB141, save CW 

300 

RJ 

JA154 

JA617 

Give alarm concerning skipping inside 





parent. 


301 

TV 

JB302 

JA154 

Restore exit 

of alarm 

302 

MJ 

0 

JA157 

Goto 

EXTRA.Jehecks for special equation 

303 

304 

RJ 

MJ 

JB467 

0 

JB464 

JB305 

66 , 65 , 64 ] 

Free J 

^ Not followed by ( 

305 

TV 

JC52 

JB140 

77 

1 

Followed by ( 

306 

TV 

X46 

JB141 

66 

J 

307 

RJ 

JB273 

JB265 

Check whether 

symbol has special equal. 

310 

MJ 

0 

JB125 




311 

TV 

JC55 

JB131 

66 1 

I 


312 

TV 

JC54 

JB132 

65 

> 

Not followed by ( 

313 

TV 

JC50 

JB133 

64 J 

| 


314 

TV 

JC52 

JB140 

77 1 

1 

Followed by ( 

315 

TV 

JC55 

JB141 

66 J 

r 

316 

MJ 

0 

JB125 




317 

TV 

JC54 

JB131 

66 1 



320 

TV 

JC54 

JB132 

65 : 

► 

Not followed by ( 

321 

TV 

JC53 

JB133 

64 



322 

TV 

JC52 

JB140 

77 1 


Followed by ( 

323 

TV 

X60 

JB141 

66 J 


324 

MJ 

0 

JB125 




325 

RJ 

JB467 

JB464 

66. 65. 64 1 

► Not followed by ( 

326 

MJ 

0 

JB327 

Free 

j 

327 

TV 

JC52 

JB140 

77 

i 

• Followed by ( 

330 

TV 

JC46 

JB141 

66 

j 

331 

RJ 

JB273 

JB265 

Check whether 

symbol has special equat. 

332 

MJ 

0 

JB125 




333 

TV 

JC55 

JB131 

66 1 



334 

TV 

JC54 

JB132 

65 | 


Not followed by ( 

335 

TV 

JC50 

JB133 

64 J 



336 

TV 

JC52 

JB140 

77 

1 

Followed by ( 

337 

TV 

JC55 

JB141 

66 j 

\ 

340 

MJ 

0 

JB125 



Entries for EJ series 

341 

342 

TP 

MJ 

TS3 

0 

Q 1 

JB344 J 

Mask out (dummy) CW code 

343 

TP 

TA4 

Q 1 




344 

QT 

JC12 

A J 

► Mask out CW code 

345 

EJ 

30000 

JB347 

63— 

or 64— 

- (has been set before 


entering here) 
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346 

MJ 

0 

JA502 



Jump to alarm 13 

347 

TP 

JC13 

A 

1 

> 

Is next symbol ( ? 

350 

EJ 

JD2 

JA514 

J 


Jump to alarm 15 

351 

MJ 

0 

30000 




352 

TU 

JC46 

JB345 


J 


353 

r P1 T 

X V 

JC50 

Tnnn 

ODOJ1 


r 

2 64 or 6 64 

354 

MJ 

0 

JB343 


! 

355 

TU 

JC46 

JB345 


I 


356 

TV 

JC51 

JB351 


\ 

364 or 7 64 

357 

MJ 

0 

JB343 



360 

TU 

JC46 

JB345 

: 



361 

TV 

JC53 

JB351 


► 

464 

362 

MJ 

0 

JB343 



363 

TU 

JC47 

JB345 


L 

6 63 

364 

TV 

JC50 

JB351 


1 

u v/u 

MJ 

0 

ID CHQ 
vu 



Jump first to place TS3 ♦ TA4, then 

366 

TU 

JC47 

JB345 



go to further handling. 

367 

TV 

JC51 

JB351 


► 

7 63 pi , . 

Place zero string- 

370 

MJ 

0 

JB503 

4 


371 

TU 

EW3 

JB373 



Come from JA45 out word 

372 

TP 

JC20 

A 

1 

► 

Was last string-out word a zero? 

373 

EJ 

30000 

JB400 




374 

RP 

10017 

JB376 

1 


Clear counters and indices and storages 

375 

TP 

JC20 

JD15 

j 

► 

376 

TP 

JC20 

EW2 

j 


Place zero string-out word 

377 

RJ 

EW 

EW1 

j 

► 

400 

MJ 

0 

30000 



Only used in RJ when found, or AND and 
Level Meter = 0. 

401 

RP 

30013 

JB403 

> 



402 

TP 

SY2 

JD2 




403 

RP 

30013 

JB405 


> 

Save SY, SZ 

404 

TP 

SZ2 

SY2 




405 

MJ 

0 

30000 

J 



406 

RP 

30013 

JB410 




407 

TP 

JD2 

SY2 


► 

Restore SY, SZ 

410 

MJ 

0 

30000 




411 

TP 

JC20 

JD1 



Clear level meter 

412 

TP 

JC20 

JD21 



Clear counter of elements inside pseudo 

413 

TP 

JC20 

JD17 



Clear inside pseudo 

414 

MJ 

0 

30000 




415 

MJ 

0 

JB427 



Alarm Print 

416 

TP 

WL1 

114 




417 

RJ 

UP2 

UP 


> 


420 

TP 

30000 

UP3 




421 

RJ 

UP 2 

UP 



Exit both when funct. jump out should 

422 

RJ 

JB422 

JB423 



not be restored, used by Alarm 20 

423 

TV 

JC100 

JB222 

1 


Restore funct. jump out (in case it was 
set) 

424 

MJ 

0 

30000 



Exit both (restoring of funct. jump out 
does not hurt warning alarms, since they 
occur never for alpha-numeric symbols) 

425 

TP 

III 

UP3 


1 

Entrance alarm print warning 

426 

MJ 

0 

JB416 
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427 

RJ 

OZ 

0Z1 

•N 



430 

TP 

II 

DP3 


P* 

Entrance alarm print error 

431 

MJ 

0 

JB416 




432 

0 

0 

0 



Free completely VARY check 

433 

TJ 

JD1 

JA331 



Is Level Meter = 0 ? 

434 

TP 

JC20 

JB441 



Set RP 2(n) JB443 

435 

TU 

VL 

JB441 




436 

RS 

JB441 

JC56 




437 

AT 

JC103 

JB441 




440 

TP 

SZ2 

A 



Put XS3 symbol at hand —» A 

441 

0 

0 

0 

1 

1 

k 

Is it equal one in given list? (Concern¬ 
ing VARY 

442 

EJ 

VLl 

JA572 

J 


Yes, goto alarm 12-1/2 = 7 

443 

TP 

JC20 

A 



All OK, restore A to 0 

444 

MJ 

0 

JA266 



Go back to routine 

445 

TP 

JD2 

A 

I 


Alarm exit when SY stored otherwise 

446 

EJ 

JC13 

JA135 

1 

| 


Is next symbol ( ? If yes, go to skip 

447 

MJ 

0 

JA163 

J 


contents of parent. 

450 

TP 

SY2 

A 

1 


Alarm exit when SY not stored otherwise 

451 

EJ 

JC13 

JA136 


► 

Is next symbol ( ? If yes, go to skip 
contents of parent. 

452 

MJ 

0 

JA157 

J 



453 

TO 

EW3 

JB455 



Place address of last string-out word in 
JB455 

454 

TP 

JC20 

A 



Clear A 

455 

EJ 

30000 

JB460 



Was last string-out word - zero? If yes, 
skip placing another 

456 

457 

TP 

RJ 

JC20 

EW 

EW2 

EW1 

1 

J 


Place zero-string-out word 

460 

TP 

JC30 

EW2 



Put XS3 code of A • in EW2 

461 

MJ 

0 

30000 



Jump back to routine 

462 

RP 

30030 

JB117 

1 


Place TJ region in TF region after 

463 

TP 

TJ 

TF 

J 


pseudo was built up 

464 

TV 

JC106 

JB131 



Patch, come from JB303 or JB325 

465 

TV 

JC54 

JB132 



Setting 66, 65, 64 with no ( 

466 

TV 

JC54 

JB133 




467 

MJ 

0 

30000 




470 

RJ 

JB222 

JB210 



Come from JA315 jump to do normal han¬ 
dling of pseudo 

471 

TV 

JC32 

JA157 



Set pseudo jump-out in JA157 

472 

RP 

30025 

JB474 



Store format of all possible CW + 24 
operands 

473 

TP 

TA4 

JD35 



Save TA4 

474 

RA 

JB462 

JC22 



Set jump over "bring list in Comb. List" 

475 

TP 

JC115 

Q 



Put mask 77700 -»• Q 

476 

QT 

TA4 

TJ2 



Set first 3 digits of CW in TJ2 (set up 
for format) 

477 

RJ 

JB124 

JB56 



Go back to routine 

500 

TV 

JC6 

JB124 



Rest JB124 (RJ exit) 

501 

RS 

JB462 

JC22 



Reset jump to bring list in Comb. List 

502 

MJ 

0 

JA160 



Go to get next symbol 


483 



503 

TP 

TS3 

TA4 

Set dummy CW’s aside for storing in 

504 

MJ 

0 

JB341 . 

string-out(when found in Dummy List) 

505 

TP 

JC114 

JB510 

Come from JA104; preset JB510 

506 

TP 

JC67 

Q 

1 Set index for no. of operands 

507 

QT 

TJ2 

JD34 . 

I (mask 0 0 00077) 


=ii n 

\.J L \J 

RS 


T19 

xv l—i 

Dvocnt Kv TR^A^ 
x 1 VUV U XJJ 


511 

Z J 

JA440 

JB512 

Are the values equal? 

Compare set 

512 

RA 

JB510 

JC107 

Adv. to next val. 

, up pseudo op 

513 

IJ 

JD34 

JB510 

Are all val. handled? 

in TJ2-25 

514 

MJ 

0 

JA107 

Test OK, go on in routine. 

with the 






stored given 






values 

515 

TP 

JC21 

JD30 

Set extra Level Meter = l' 


516 

RJ 

JB410 

JB406 

Restore SY, SZ 

^ Special en- 

517 

RS 

JDl 

JC21 

Restore Level Meter 

* trance EXTRA 


MJ 

n 

V 

1A 1 97 

vnx v i 

T nm n + a qv+ v n 

u umu IV V/AL1Q J 


521 

RJ 

JB422 

JA536 

Jump to alarm 20 for subscr. in funct. 





and don't restore funct. jump out 

522 

MJ 

0 

JB32 

Go to set dummy 65000 in TA4 

523 

TV 

JC63 

JB4 ] 

| Patch for JA253; restore exit in JB4 

524 

TP 

TS3 

Q 

■ Prepare masking of CW code 


525 

MJ 

0 

30000 J 

Go back 


526 

RA 

JD21 

JC21 ' 

Patch for JA333 (to restore accumulator 

527 

TP 

JC21 

A 

after RA) Adv. no. of elements in pseudo 





Put 1 accumulator 


530 

MJ 

0 

JA334 

Go back to routine 


531 

TP 

JC20 

A : 

! Patch for JB351 


532 

EJ 

JD16 

JB220 

| Clear A 






Are we not in subscr. var. 

? Then save 





r CW, case 63 for single valued floating 





point var. 


533 

MJ 

0 

JB172 „ 

! We are in subscr. var.: handle case 63 





for subscr. 



CA 

JB534 
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IA 

JC 



0 

0 

1 

0 


1 

0 

WL3 

WL3 


2 

24 

50277 

77777 

XS3 code AND 

3 

0 

2 

0 


4 

0 

3 

0 


5 

0 

JC10 

JA251 


6 

0 

JC26 

JA160 


7 

0 

0 

5 


10 

0 

0 

64000 


11 

0 

0 

63000 


12 

0 

0 

77000 


13 

17 

77777 

77777 

XS3 ( 

14 

40 

0 

0 


15 

77 

0 

0 


16 

34 

0 

0 


17 

50 

0 

0 


20 

0 

0 

0 

Zero 

21 

0 

0 

1 

One 

22 

0 

0 

2 


23 

0 

0 

3 


24 

0 

0 

4 


25 

0 

0 

66000 


26 

0 

0 

65000 


27 

43 

77777 

77777 

XS3 ) 

30 

01 

22777 

77777 

XS3 A . 

31 

0 

0 

25 

Used by JA113 

32 

0 

JC21 

JB57 


33 

0 

JC22 

JB135 


34 

21 

77777 

77777 

XS3 , 

35 

23 

77777 

77777 

XS3 ; 

36 

0 

0 

00100 


37 

0 

TA5 

0 


40 

0 

0 

77777 


41 

0 

TA4 

JA163 


42 

0 

0 

76000 


43 

0 

0 

61000 


44 

0 

0 

70000 


45 

0 

0 

40000 


46 

0 

JC10 

JB154 

I 

47 

0 

JC11 

JB162 

II 

50 

0 

0 

JB170 

III 

51 

0 

0 

JB176 

IV 

52 

0 

0 

JB201 

V 

53 

0 

0 

JB215 

VI 

54 

0 

0 

JB220 

Save 1 CW 

55 

0 

0 

JA502 


56 

0 

VL1 

0 

For checking VARY range 

57 

0 

0 

JB210 


60 

0 

0 

JB277 


61 

0 

0 

JA124 


62 

0 

WL 

WL 


63 

0 

0 

JB6 
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64 

0 

0 

JA312 

65 

0 

0 

JB363 

66 

0 

0 

JB366 

67 

0 

0 

00077 

70 

0 

0 

JB262 

71 

ClA 

vy-ji 

n 

V 

o 

72 

0 

JC24 

TJ2 

73 

0 

JC21 

JA253 

74 

0 

0 

JA371 

75 

0 

0 

00700 

76 

0 

70000 

0 

77 

0 

0 

67000 

100 

0 

0 

JB223 

101 

0 

0 

JB240 

102 

0 

0 

JA247 

in*? 

xvu 

RP 

onnnn 

^ W W 

JB443 

104 

02 

77777 

77777 

105 

0 

77777 

77777 

106 

0 

0 

JA600 

107 

0 

1 

1 

110 

0 

2 

2 

111 

0 

3 

3 

112 

0 

JC20 

TEl 

113 

0 

JC21 

0 

114 

RS 

JD35 

TJ2 

115 

0 

0 

77700 

116 

34 

0 

0 

117 

44 

0 

0 

120 

45 

0 

0 

121 

46 

0 

0 

122 

47 

0 

0 

123 

0 

77777 

77777 


CA 

JC124 



Lower case 
Upper case 

Mask 

f.nmrvar i sons 
for*I,J,K,L,M 

For neg. sign alarm 1 


436 



Alarm 1 



IA 

JI 


0 

0 

JI1 

0 

1 

40 

JI2 

10 

2 

65 

73472 

55146 

3 

01 

77777 

77777 

4 

0 

0 

0 5 

5 

01 

34464 

63032 

6 

24 

46013 

45001 

7 

26 

51475 

26766 

10 

30 

01653 

05066 

11 

30 

50263 

02201 


CA 

JI12 



Symbol C ] illegal 

in compute sentence 


Alarm 2 



IA 

JJ 


0 

0 

JJ1 

0 

1 

40 

JJ2 

15 

2 

24 

27442 

42630 

3 

50 

66016 

57347 

4 

25 

51466 

50177 

5 

0 

0 

0 

6 

01 

77777 

77777 

7 

0 

0 

0 

10 

01 

47302 

45034 

11 

50 

32463 

06565 

12 

01 

34500 

12651 

13 

47 

52676 

63001 

14 

01 

01010 

10101 

15 

65 

30506 

63050 

16 

26 

30220 

17777 


CA 

JJ17 



Adjacent symbols C ] [ 
meaningless in compute 

SZ2 

SY2 


] 

sentence 
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CM 00 LQ 


Alarm 3 = 6-3/4 


IA JK 

0 0 JK1 0 

1 40 JK2 10 

2 52 65306 72751 Pseudo operation l 1 

has too many elements. 

3 01 51523 05424 

4 66 34515 00177 

5 0 0 0 TJ 1 

6 01 33246 50166 

7 51 51014 72450 

10 73 01304 63047 

11 30 50666 52277 

CA JK12 


Alarm 4 

IA JL 

0 0 JL1 0 

1 40 JL2 6 Parentheses not properly paired 

52 24543 05066 

33 30653 06501 

50 51660 15254 

51 52305 44673 

/ rv -1 4 n 4 ^ JO A 

O UJL 0^40 

7 27 22017 77777 

CA JL10 
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Alarm 5 



IA 

JM 



0 

0 

JM1 

0 


1 

40 

JM2 

11 

VariableC ] has incorrect 

2 

70 

24543 

42425 

number of subscripts 

3 

46 

30017 

77777 


4 

0 

0 

0 

JD27 

5 

01 

33246 

50134 


6 

50 

26515 

45430 


7 

26 

66015 

06747 


10 

25 

30540 

15131 


11 

01 

65672 

56526 


12 

54 

34526 

66522 



CA 

JM13 








Alarm 6 = 5-1/2 



IA 

JO 




0 

0 

J01 

0 



1 

40 

J02 

15 

Arguments of 

function [ ] 

2 

24 

54326 

74730 

do not agree 

with previous 

3 

50 

66650 

15131 



4 

01 

31675 

02666 



5 

34 

51500 

17777 



6 

0 

0 

0 

JD26 


7 

01 

27510 

15051 



10 

66 

01243 

25430 



11 

30 

01713 

46633 



12 

01 

01010 

10101 



13 

01 

01010 

10101 



14 

52 

54307 

03451 



15 

67 

65016 

76524 



16 

32 

30220 

17777 




CA 

J017 
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Alarm 7 = 12-1/2 



IA 

JP 


0 

0 

JP1 

0 

1 

40 

JP2 

20 

2 

0 

0 

0 

3 

01 

26245 

05051 

4 

66 

01253 

00126 

5 

51 

47526 

76630 

6 

27 

01333 

05430 

7 

21 

01653 

45026 

10 

30 

01663 

33001 

11 

65 

30506 

63050 

12 

26 

30013 

46501 

13 

01 

01010 

10101 

14 

34 

50016 

63330 

15 

01 

54245 

03230 

16 

01 

51310 

12401 

17 

70 

24547 

30165 

20 

66 

24663 

04730 

21 

50 

66227 

77777 


CA 

JP22 



l_ J Cannot be computed here, 
since the sentence is in the 
range of a vary sentence. 
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Alarm 8 


IA JQ 

0 0 JQ1 0 

1 40 JQ2 12 c 

2 26 51506 56624 Constant [ j is followed by 

open parenthesis. 

3 50 66017 77777 

4 0 0 0 SZ2 

5 0 0 0 SZ3 

6 01 34650 13151 

7 46 46517 13027 

10 01 25730 15152 

11 30 50015 22454 

12 30 50663 33065 

13 34 65227 77777 

CA JQ14 


Alarm 9 



IA 

JR 




0 

0 

JR1 

0 


[ J 

1 

40 

JR2 

15 

Constant 

f ] appears as 

2 

26 

51506 

56624 

variable 

to be computed 

3 

50 

66017 

77777 



4 

0 

0 

0 

SZ2 


5 

0 

0 

0 

SZ3 


6 

01 

24525 

23024 



7 

54 

65012 

46501 



10 

70 

24543 

42425 



11 

46 

30016 

65101 



12 

25 

30010 

10101 



13 

01 

01010 

10101 



14 

01 

01010 

10101 



15 

26 

51475 

26766 



16 

30 

27220 

17777 




CA 

JR17 
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Alarm 10 = 17-1/2 


IA JS 

0 0 JS1 0 

1 40 JS2 10 

2 24 54326 74730 

3 50 66650 15131 

4 01 31675 02666 

5 34 51500 17777 

6 0 0 0 

7 01 27510 15051 

10 66 01245 25230 

11 24 54227 77777 

CA JS12 


Alarm 11 

IA JT 

0 0 JT1 0 

1 40 JT2 10 Arguments of function [ J 

2 24 54326 74730 are superfluous 

3 50 66650 15131 

4 01 31675 02666 

5 34 51500 17777 

6 0 0 0 

7 01 24543 00165 

10 67 52305 43146 

11 67 51676 52201 

CA JT12 


Arguments of function C 3 
do not appear. 
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Alarm 12 



IA 

JU 


0 

0 

JU1 

0 

1 

40 

JU2 

14 

2 

24 

46523 

32450 

3 

67 

47305 

43426 

4 

01 

65734 

72551 

5 

46 

01777 

77777 

6 

0 

0 

0 

7 

01 

33246 

50127 

10 

34 

32346 

60124 

11 

65 

01313 

45465 

12 

66 

01010 

10101 

13 

01 

01010 

10101 

14 

26 

33245 

42426 

15 

66 

30542 

27777 


CA 

JU16 




IA 

JV 


0 

0 

JV1 

0 

1 

40 

JV2 

6 

2 

65 

73472 

55146 

3 

01 

77777 

77777 

4 

0 

0 

0 

5 

01 

34502 

65154 

6 

54 

30266 

64673 

7 

01 

67653 

02722 


CA 

JV10 



Alphanumeric symbol [ ] 
has digit as first character 

SZ2 

Alarm 13 

SymbolC ] incorrectly used 
SZ2 
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Alarm 14 



IA 

JW 


r\ 

W 

r\ 

KJ 

TTiT 1 

dm 

A 

\J 

1 

40 

JW2 

11 

2 

70 

24543 

42425 

3 

46 

30017 

77777 

4 

0 

0 

0 

5 

01 

34650 

15051 

6 

66 

01273 

03134 

7 

50 

30270 

12573 

10 

01 

24500 

13053 

11 

67 

24663 

45150 

1 o 

jl c, 

oo 

77777 

1(111 

77777 
1 1 1 1 1 


CA 

JW13 



Variable [ ] is not defined 

by an equation 

SZ2 


Alarm 15 



IA 

JX 


0 

0 

JX1 

0 

1 

40 

JX2 

14 

2 

65 

34503 

24630 

3 

01 

70244 

66730 

4 

27 

01702 

45434 

5 

24 

25463 

00177 

6 

0 

0 

0 

7 

01 

34650 

13151 

10 

46 

46517 

13027 

11 

01 

25730 

12450 

12 

01 

51523 

05001 

13 

01 

01010 

10101 

14 

52 

24543 

05066 

15 

33 

30653 

46522 


CA 

JX16 



Single valued variable [ ] 
is followed by an open parenthesis 


SZ2 
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Alarm 16 



IA 

JY 


0 

0 

JY1 

0 

1 

40 

JY2 

10 

2 

65 

67256 

52654 

3 

34 

52666 

50151 

4 

31 

01702 

45434 

5 

24 

25463 

00177 

6 

0 

0 

0 

7 

01 

27510 

15051 

10 

66 

01245 

25230 

11 

24 

54227 

77777 


CA 

JY12 



Subscripts of variable [ 3 
do not appear 

SZ2 


Alarm 17 



IA 

JZ 


0 

0 

JZ1 

0 

1 

40 

JZ2 

11 

2 

24 

54326 

74730 

3 

50 

66650 

15131 

4 

01 

27674 

74773 

5 

01 

31675 

02666 

6 

34 

51500 

17777 

7 

0 

0 

0 

10 

01 

27510 

15051 

11 

66 

01245 

25230 

12 

24 

54227 

77777 


CA 

JZ13 



Arguments of dummy 
function [ 3 do not 
appear 


SZ2 
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Alarm 18 


n 

IA 

n 

IA 

TA 1 

n 

yj 

KJ 

-»-.n x 

V 

1 

40 

IA2 

16 

2 

31 

51544 

72466 

3 

01 

51310 

15265 

4 

30 

67275 

10151 

5 

52 

30542 

46634 

6 

51 

50017 

77777 

7 

0 

0 

0 

10 

01 

27513 

06501 

11 

50 

51660 

12432 

12 

54 

30300 

10101 

13 

01 

01010 

10101 

14 

01 

71346 

63301 

15 

52 

54307 

03451 

16 

67 

65016 

76524 

17 

32 

30220 

17777 


CA 

IA 20 



Format of pseudo operationQ ] 
does not agree with previous usage 


SZ2 for 18; JD25 for 6-1/2 


Alarm 19 



IA 

IB 


0 

0 

IBl 

0 

1 

X 

A A 

IV 

TDQ 

JLU6< 

l L. 

X \J 

2 

65 

67256 

52654 

3 

34 

52660 

17777 

4 

0 

0 

0 

5 

01 

51310 

17024 

6 

54 

34242 

54630 

7 

01 

77777 

77117 

10 

0 

0 

0 

11 

01 

34650 

15051 

12 

66 

01525 

45152 

13 

30 

54467 

30101 

14 

01 

01010 

10101 

15 

01 

01010 

10101 

16 

71 

54346 

66630 

17 

50 

22017 

77777 


CA 

IB20 



C..Ur<n«^ P 1^4? _*1 -! « 

uujjovi ipt i_ j w jl (auauicj, j jl o 

not properly written 
SZ2 


JD27 
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Alarm 20 



IA 

IC 



0 

0 

IC1 

0 


1 

2 

40 

24 

IC2 

54326 

16 

74730 

Argument [ 3 of function [ J 

3 

50 

66017 

77777 

appears as subscript 

4 

0 

0 

0 

SZ2 

5 

01 

51310 

13167 


6 

50 

26663 

45150 


7 

01 

77777 

77777 


10 

0 

0 

0 

JD26 

11 

01 

24525 

23024 


12 

54 

65012 

46501 


13 

01 

01010 

10101 


14 

01 

01010 

10101 


15 

01 

01010 

10101 


16 

65 

67256 

52654 


17 

34 

52662 

27777 



CA 

IC20 







Alarm 21 


IA 

ID 



0 

0 

ID1 

0 


1 

40 

ID2 

17 

Function or subscripted 

2 

31 

67502 

66634 

variable[ ]has not been 

3 

51 

50015 

15401 

previously mentioned 

4 

65 

67256 

52654 


5 

34 

52663 

02701 


6 

70 

24543 

42425 


7 

46 

30017 

77777 


10 

0 

0 

0 

SZ2 

11 

01 

33246 

50150 


12 

51 

66010 

10101 


13 

01 

01010 

10101 


14 

25 

30305 

00152 


15 

54 

30703 

45167 


16 

65 

46730 

14730 


17 

50 

66345 

15030 


20 

27 

22017 

77777 



CA 

ID21 
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Alarm 22 



IA 

IE 


o 

o 

IE1 

o 

1 

40 

IE2 

20 

2 

65 

67256 

52654 

3 

34 

52660 

17777 

4 

0 

0 

0 

5 

01 

51310 

17024 

6 

54 

34242 

54630 

7 

01 

77777 

77777 

10 

0 

0 

0 

11 

01 

30722 

63030 

12 

27 

65012 

44646 

13 

51 

71302 

70101 

14 

01 

01010 

10101 

15 

01 

01010 

10101 

16 

50 

67472 

53054 

17 

01 

51310 

16567 

20 

25 

65265 

43452 

21 

66 

65220 

17777 


CA 

IE 22 



Subscript[ J of variable[ ] 
exceeds allowed number 
of subscripts 
SZ2 


JD27 
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Alarm 23 



IA 

IH 



0 

0 

IH1 

0 


1 

40 

IH2 

12 


2 

31 

34546 

56601 


3 

65 

73472 

55146 

First symbol is wrong. 

4 

01 

34650 

17154 

Sentence is not checked 

5 

51 

50322 

20165 

further 

6 

30 

50663 

05026 


7 

30 

01505 

16601 


10 

31 

67546 

63330 


11 

54 

01010 

10101 


12 

01 

01010 

12633 


13 

30 

26453 

02722 



CA 

IH14 




0 

IA 

0 

IF 

IF1 

0 

Warning Alarm 1 

1 

40 

IF2 

14 


2 

26 

51474 

72401 

Comma assumed between 

3 

24 

65656 

74730 

[ ] and preceding symbol 

4 

27 

01253 

06671 

[ 3 

5 

30 

30500 

17777 


6 

0 

0 

0 

SZ2 

7 

0 

0 

0 

SZ3 

10 

01 

24502 

70152 


11 

54 

30263 

02734 


12 

50 

32010 

10101 


13 

01 

01010 

10101 


14 

01 

01010 

10165 


15 

73 

47255 

14622 



CA 

IF 16 
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Warning Alarm 2 



IA 

IG 



0 

A 

u 

IGl 

n 


1 

40 

IG2 

12 


2 

41 

24502 

74101 

"And* assumed between 

3 

24 

65656 

74730 

£ ^ and preceding symbol 

4 

27 

01253 

06671 

5 

30 

30500 

17777 


6 

0 

0 

0 

SZ2 

7 

0 

0 

0 

SZ3 

10 

01 

24502 

70152 


11 

54 

30263 

02734 


12 

CA 

JO 

32016 

C7Q/17 

O 1 U“1 1 


13 

25 

51462 

20177 



CA 

IG14 


Warning Alarm 3 


IA 

IK1 



0 

0 

IKl 

0 


1 

40 

IK2 

10 


2 

41 

24502 

74101 

"And" inside parentheses 

3 

34 

50653 

42730 

replaced by comma 

4 

01 

52245 

43050 


5 

66 

33306 

53065 


6 

01 

54305 

24624 


7 

26 

30270 

12573 


10 

01 

01010 

10101 


11 

26 

51474 

72422 



CA 

IK12 


Alarm Heading 


IA 

II 



0 

0 

112 

6 

(real alarm) 

1 

0 

112 

10 

(warning) 

2 

65 

30506 

63050 


3 

26 

30010 

17777 

Sentence A A C ] A A A 

4 

0 

0 

0 

A A warning, A A 

5 

01 

01011 

72651 


6 

47 

52676 

63043 


7 

01 

01777 

77777 


10 

71 

24545 

03450 


11 

32 

21010 

17777 



CA 

1112 




(compute) 
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Temporaries Compute String-out 


0 

Word index 

1 

Level Meter 

2-14 

Storage for SY 

15 

Index "inside function" 

16 

Index "inside subscr. var." 

17 

Index inside pseudo oper. 

20 

Counter of subscripts 

21 

Counter of elements in pseudo operation 

22 

Stored number of subscripts 

23 

Free (?) 

24 

Index "pseudo was in list" 

25 

XS3 represent, of pseudo operation 

26 

XS3 represent, of function 

27 

XS3 represent, of subscripted variable 

30 

Extra level meter 

31 

CW pseudo operat. (for no. of elements) 

32 

Built up format of function 

33 

Stored format of function 

34 

Index for pseudo operation 

35-61 

Stored CW + operands of pseudo operation 

0-27 

Space to build up pseudo operation for 
Comb . List 
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E 



















Read String-Out Regions 


RE RG4400 
RE E04474 
RE EP4520 
RE EQ4543 
RE ER4564 


String-Out subroutine regions are needed for assembly of this tape. 



IA 

RG 


0 

MJ 

0 

CT 

1 

RJ 

SY 

SY1 

2 

TP 

EP10 

WL4 

3 

EJ 

RG57 

RG33 

4 

EJ 

RG60 

RG1 

5 

EJ 

RG61 

RG46 

6 

RJ 

TA 

TA1 

7 

MJ 

0 

EP1 

10 

MJ 

0 

RG20 

11 

EJ 

RG61 

EOl 

12 

TP 

SYll 

Q 

13 

QJ 

RG42 

RG33 

14 

RJ 

SY 

SYl 

15 

EJ 

RG61 

RG 

16 

EJ 

RG63 

RG1 

17 

MJ 

0 

RG14 

20 

TP 

TA4 

Q 

21 

QT 

RG64 

A 

22 

TJ 

RG65 

EPl 

23 

TP 

RG66 

Q 

24 

QS 

RG66 

TA5 

25 

RJ 

TD 

TD1 

26 

TP 

TA3 

DVL6] 

27 

RA 

RG26 

RG67 

30 

RJ 

SY 

SYl 

31 

EJ 

RG62 

ER1 

32 

MJ 

0 

RG2 

33 

RJ 

SY 

SYl 

34 

EJ 

RG70 

RG36 

35 

MJ 

0 

RGll 

36 

RJ 

SY 

SYl 

37 

TP 

SYll 

Q 

40 

QJ 

RG42 

RG41 

41 

MJ 

0 

EOl 

42 

TP 

SY2 

LN4 

43 

RJ 

LN2 

LN 

44 

TP 

LN3 

WL4 


} 


} 


} 


Exit to String-Out Control 
Get next symbol 
Clearing 5th line of output 
Is symbol an IF? 

Comma test 
Space period test. 

Get file from Combination List. 
Error return from TA 


Is symbol a space period? 
Is symbol a constant? 

A . test 

Closed parenthesis test 

J 

Call word to q 

Mask (0 0 XXOOO) 

Test for "77 —- '* Type 

Put 1 in 30 bit. 


Deleting loop 


Send file back to Combination List 


Open parenthesis detection gives alarm. 

Begin IF rout. 

Is symbol "SENTEN"? 


Is symbol a constant? 


Line number put in standard form and put 
in output. 
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45 

RJ 

IX 

rxi 

Line number put in referenced-line number 





list. 

46 

TP 

RG26 

A 

TP TA3 [WL6] to A 

47 

SS 

RG71 

0 

- TP TA3 WL6 

50 

ZJ 

RG51 

EQl 


51 

TP 

A 

WL5 

Variable count 

r- O 

D.i 

A rn 

rtl 

r» r”7n 

1 

WL 


53 

54 

TP 

QS 

RG73 

Q 

Q ) 

12 J 

Put read indicator into 12 

55 

RJ 

SS 

SSI 

Exit procedure 

56 

MJ 

0 

RG 


57 

34 

31777 

77777 

IF 

60 

21 

71177 

77777 

t 

61 

01 

22777 

77777 

A 

62 

17 

77777 

77777 

( 

63 

43 

77777 

77777 

) 

/ A 

04 

r\ 

yj 

A 

u 

77000 


65 

0 

0 

76777 


66 

1 

0 

0 

1 in 30 bit 

67 

0 

0 

1 


70 

65 

30506 

63050 


71 

TP 

TA3 

WL6 


72 

0 

0 

6 


73 

0 

2 

0 



CA 

RG74 




Read Error Print-Out Subroutines 



IA 

EP 








0 

MJ 

0 

RG30 







1 

TP 

SY2 

EP10 

Set-ups 

variable for print-out 

2 

3 

4 

RJ 

TP 

RJ 

WA 

EP22 

DP2 

WA1 

0P3\ 

DP ; 

Print-out: Sentence (Read) 

Print-Out shown below. 

5 

MJ 

0 

EP 







6 

70 

24543 

42425 

V 

A 

R 

I 

A 

B 

7 

46 

30017 

77777 

L 

E 

A 




10 

0 

0 

0 







11 

01 

50516 

60147 

A 

N 

0 

T 

A 

M 

12 

30 

50663 

45150 

E 

N 

T 

I 

0 

N 

13 

30 

27013 

45001 

E 

D 

A 

I 

N 

A 

14 

66 

33300 

11727 

T 

H 

E 

A 

( 

D 

15 

34 

47305 

06534 

I 

M 

E 

N 

S 

I 

16 

51 

50430 

10101 

0 

N 

) 

A 

A 

A 

17 

01 

01010 

10101 

A 

A 

A 

A 

A 

A 

20 

01 

65662 

46630 

A 

S 

T 

A 

T 

E 

21 

47 

30506 

62277 

M 

E 

N 

T 

. 

A 

22 

40 

EP6 

14 








CA 

EP23 









IA 

EQ 








0 

MJ 

0 

RG55 
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1 

RJ 

WA 

WA1 







2 

TP 

EQ20 

UP3 







3 

RJ 

UP2 

OP 







4 

MJ 

0 

EQ 







5 

50 

51016 

56725 

N 

0 

A 

S 

U 

B 

6 

65 

26543 

45266 

S 

C 

R 

I 

P 

T 

7 

30 

27017 

02454 

E 

D 

A 

V 

A 

R 

10 

34 

24254 

63001 

I 

A 

B 

L 

E 

A 

11 

47 

30506 

63451 

M 

E 

N 

T 

r 

0 

12 

50 

30270 

13450 

N 

E 

D 

A 

r 

N 

13 

01 

66333 

00117 

A 

T 

H 

E 

A 

( 

14 

54 

30242 

74301 

R 

E 

A 

D 

) 

A 

15 

01 

01010 

10165 

A 

A 

A 

A 

A 

S 

16 

66 

24663 

04730 

T 

A 

T 

E 

M 

E 

17 

50 

66227 

77777 

N 

T 

. 




20 

40 

EQ5 

13 








CA EQ21 


IA ER 


0 

MJ 

0 

RG14 







1 

RJ 

WA 

WAl 







2 

TP 

ER27 

UP3 







3 

RJ 

0P2 

UP 







4 

MJ 

0 

ER 







5 

65 

67256 

52654 

S 

U 

B 

S 

C 

R 

6 

34 

52663 

02701 

I 

p 

T 

E 

D 

A 

7 

70 

24543 

42425 

V 

A 

R 

I 

A 

B 

10 

46 

30650 

12454 

L 

E 

S 

A 

A 

R 

11 

30 

01505 

16601 

E 

A 

N 

0 

T 

A 

12 

24 

46465 

17130 

A 

L 

L 

0 

W 

E 

13 

27 

01665 

10133 

D 

A 

T 

0 

A 

H 

14 

24 

70300 

10101 

A 

V 

E 

A 

A 

A 

15 

01 

01010 

10152 

A 

A 

A 

A 

A 

P 

16 

24 

54305 

06633 

A 

R 

E 

N 

T 

H 

17 

30 

66342 

62446 

E 

T 

I 

C 

A 

L 

20 

01 

30725 

25430 

A 

E 

X 

P 

R 

E 

21 

65 

65345 

15065 

S 

S 

I 

0 

N 

S 

22 

01 

34500 

16633 

A 

r 

N 

A 

T 

H 

23 

30 

01175 

43024 

E 

A 

( 

R 

E 

A 

24 

27 

43016 

56624 

D 

) 

A 

S 

T 

A 

25 

66 

30473 

05066 

T 

E 

M 

E 

N 

T 

26 

22 

77777 

77777 







27 

40 

ER5 

22 








CA 

ER30 









IA 

EO 








0 

MJ 

0 

RG51 







1 

RJ 

WA 

WAl 







2 

TP 

E023 

UP3 







3 

RJ 

UP 2 

UP 







4 

MJ 

0 

EO 







5 

67 

65345 

03201 

U 

S 

I 

N 

G 

A 
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cotOH-o--40 s ai»ucoro^o^io s 


66 

33300 

17151 

T 

H 

E 

A 

W 

0 

54 

27013 

43101 

R 

D 

A 

I 

F 

A 

34 

47524 

63430 

I 

M 

P 

L 

I 

E 

65 

01543 

03130 

S 

A 

R 

E 

F 

E 

54 

30502 

63450 

R 

E 

N 

C 

I 

N 

32 

01240 

14634 

a 

V/ 

A 

t—1 

A 

A 

t —l 

L 

I 

50 

30015 

06747 

N 

E 

A 

N 

U 

M 

25 

30542 

10125 

B 

E 

R 

» 

A 

B 

67 

66016 

63330 

U 

T 

A 

T 

H 

E 

01 

50674 

72530 

A 

N 

U 

M 

B 

E 

54 

01712 

46501 

R 

A 

w 

A 

S 

A 

51 

47346 

66630 

0 

M 

I 

T 

T 

E 

27 

22777 

77777 

D 

# 





40 

E05 

16 







CA 

E024 









506 



Type String-Out. 


The type string-out saves a call word and an excess-three representation 
for every symbol of a type sentence even for parentheses, commas and the 
like. Space period in excess-three form represents the end of the string- 
out. 

The routine checks for type faults, wrongly chosen symbols and incorrect 
number of subscripts of a subscripted variable. Furthermore it checks for all 
sorts of errors induced by the combination of several symbols. 

When the first symbol of the sentence following the word "type" is 
space period, the routine prints an alarm and exits without further checking 
of the sentence. This is the only case where the routine skips the rest of 
the sentence. In all other cases the sentence is handled up to the very end 
(if the number of alarms does not exceed the limit) and only contents of 
parentheses may be skipped, where a preceding alarm made the checking of the 
symbols inside the parentheses meaningless. 

The alarm print-outs are as follows: 

1) SymbolC 3 illegal in type sentence. 

2) First symbol space point. Sentence not further checked. 

3) Adjacent symbolsC J [ 3 meaningless in type sentence. 

4) Parentheses not correctly placed. 

5) Subscripted variable [ 3 has incorrect number of subscripts. 

6) Alphanumeric symbol C 3 has digit as first character. 

7) appears as function or subscripted variable, but is not previous¬ 
ly mentioned in problem. 

8) Floating point variable [ 3 used as subscript. 

9) Pseudo operation symbolC ] illegal in type sentence. 

10) Subscripts of subscripted variable C 1 are missing. 

11) Library routine symbolt J illegal in type sentence. 

12) Floating point variable C ] used as function symbol or as subscripted 
variable. 

13) Subscript [ 3 appears as function or subscripted variable. 

14) Subscript C 1 used as argument of a function. 

15) Function symbol C 3 appears as subscript. 
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16) Constant C j appears as function or subscripted variable. 

17) Constant £ ] appears as variable to be typed. 

18) Negative subscript C ] illegal. 

Warnings. 

1) Comma assumed preceding symbol Cl. 

2) Typed value of functionC ] may not correspond to stated arguments. 
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TYPE Stringout (Cont.) 

MG 71 



Put CW and XS3 in 
comma ^ stringout and adv. 
f addr. by 2 


Alarm 1, 

illegal symbol in 
type comm. 


Is next symbol ) 
or, or; ? 


Change jump EJ... 

No NUMBER in ALPHNUM+4 
* to EJ...NEC 


MG32 

J Is next ^ No 
— *1 symbol ( ? ) 

_ Yes 

MF103 j _ 

Alarm 2, symbo1 for 
fct. or subscr. var._ 
forgotten 


I 


Put CW and XS3 in 
stringout and adv. 
addr. by 2 


Alarm 3. non- 
alphanum.symbol 
screwed up 


Increase Level 

Is next symbol ) 

^ No 

/is next \ 

Meter by 1 

\or , or ; ? 

) ’ 

\ symbol ( ? J 


■ 

I 


MG40 _ 

Put CW and XS3 in 
stringout and adv. 
addr. by 2 


Decrease Level 
Meter by 1 


MG 4 7 _ 

Is leve 1 > 0?\ 


Were we inside 
subscr. variable? 


MG50 _ 

Reduce ind.’’inside 
funct." by 1 


Clear Level 

Meter 

and 

inside 

funct. 

and 

inside 

subscr. 

var. 




MF24 _i_ 

Alarm 4, parent, 
not properly placed 


Set index "inside 
subscr. var." to 
zero 


MG55 _ 

Is counter of 
subscripts^ of sub-Y- 
Vscr. (stored)? J 
No 

MG56 _ 

Clear counter of 
subscripts 


k_ J Is next V 

V. symbol ( ? J 

MF^26_~_ 

Alarm 5, subscripted 
var. has wrong * of 
subscripts 


I 


























TYPE Stringout (Cont.) 


C 



MWas it subscripted 
var.? 77 


Alarm 14 or 11 , 

. single val. var. 
used as subscript 


MH36 

- —;-\ 

Are we inside sub-\Yes/ 

scr. variable? j 1 


Was it single 
valued funct.? 65 


Alarm 15 t 

single val. 

fct 

used 

as symbol 

for 

funct 

, or subscr. 

var. 




Is next sym¬ 
bol ( ? 



Alarm 16, subscr. 
used as symbol for 
funct. or subscr. 
var. 


Is next 
symbo1 ( ? 



'was it fixed point 
var.? (subscript) 64 



MF61 _ 

Alarm 17A f subscr. 

- used as argument of 
function 


MH46 I 
/Are we in- 
{side function?) 



Was it \ 
function? 66) 



m 






















































Type String-Out Regions 


RE 

MG4400 > 

RE 

MH4512 1 

RE 

MI4577 

RE 

MJ4631 

RE 

MK4656 

RE 

ML4671 j 


Program main part 


RE 

MB4713 

RE 

MC4773 

RE 

MF 5034 

RE 

YY5162 

RE 

YB5175 

RE 

YC5215 

RE 

YD5227 

RE 

YE 5244 

RE 

YF5263 

RE 

YG5273 

RE 

YH5312 

RE 

YI5330 

RE 

YJ5355 

RE 

YK5370 

RE 

YL5406 

RE 

YM5424 

RE 

YN5442 

RE 

Y05464 

RE 

YP5504 

RE 

YQ5517 

RE 

YR5531 

RE 

YS5552 

RE 

YT5571 

RE 

YZ5603 


Subroutines 
Constants 
Alarm entries 


RE ME 5614 
RE MM6140 


RE MN6240 


String-Out Subroutine regions are also needed to assemble this tape. 
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IA 

MG 



0 

MJ 

0 

CT 


1 

TP 

MC36 

EW3 


2 

RP 

10025 

MG102 


3 

TP 

MC12 

ME 


4 

MJ 

0 

MG6 


5 

0 

0 

0 


6 

RJ 

SY 

SY1 


7 

EJ 

MCI 

MB 


10 

TP 

MCI 3 

A 


11 

EJ 

SZ7 

MG 105 


12 

EJ 

SZ11 

MG105 

Non- 

13 

TP 

MC12 

ME 16 

Alpha- 

14 

TP 

SZ2 

A 

Numeric 

15 

EJ 

MC3 

MG24 


16 

EJ 

MC5 

MG34 


17 

EJ 

MC4 

MG40 


20 

EJ 

MC2 

MG62 


21 

EJ 

MC34 

MG64 


22 

EJ 

MC35 

MG64 


23 

MJ 

0 

MF15 

Comma 

24 

TP 

MC26 

ME13 


25 

RJ 

MB 37 

MB34 


26 

TP 

SY2 

A 


27 

EJ 

MC2 

MF20 


30 

EJ 

MO 3 

MF20 


31 

EJ 

MC4 

MF20 


32 

EJ 

MC5 

MF103 


33 

MJ 

0 

MG4 

First Par 

34 

TP 

MC 

ME13 


35 

RJ 

MB 37 

MB34 


36 

RA 

ME17 

MC14 


37 

MJ 

0 

MG26 

Last Par 

40 

TP 

MC30 

ME13 


41 

RJ 

MB37 

MB 34 


42 

RS 

ME 17 

MC14 


43 

SJ 

MG60 

MG44 


44 

TP 

MC12 

A 


45 

TJ 

ME20 

MG53 


46 

TJ 

ME21 

MG50 


47 

MJ 

0 

MG4 


50 

RS 

ME21 

MC14 


51 

TP 

SY2 

A 


52 

MJ 

0 

MG 32 


53 

TP 

MC12 

ME20 


54 

RS 

ME22 

ME23 


Exit 
Set EW3 

Clear temporaries and go to check 

for A . in start 

Come from MG104 "before get next 

symbol" 

Free (first RJ SY SY1 see in patch, 
MG102) 

Get next symbol for SY (later —> SZ) 
Is next symbol A . (the end point)? 
Put "40 0 gr — 

Is first digit a letter? 

Is first digit a number or decimal 
point? 

Clear word index 

Put XS3 code at hand—►A 

Is it , ? 

Is it ( ? 

Is it ) ? 

Is it ; ? 

Is it neg. sign upper case? 

Is it neg. sign lower case? 

Illegal non-alpha-numeric symbol in 
type command 

Fill string-out for comma 

Put next symbol— 

Is it ; ? 

Is it , ? 

Is it ) ? 

Is it ( ? 

Go to "before get next" 

Fill string-out for ( 

Adv. Level Meter by 1 

Do the same error tests as comma 

Fill string-out for ) 

Reduce Level Meter by 1 
Is Level Meter > 0? 

Yes, put zero —>A 

Are we inside subscr. var.? 

No: are we inside function? Only 
alternative with level > 0 
No: jump to get next symbol (really 
not needed; should never occur) 

Subtr. 1 from "inside funct" index 

Jump to one more error test 

Clear index "inside subscr. var." 
Subtr. "counted # of subscr." - 
'stored » of subscr. " 
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55 

ZJ 

MG56 

MG51 

Is counted no. of var 
var. OK? 

. of 

subscr. 


56 

TP 

MCI 2 

ME22 

Clear counter of subscripts 


57 

MJ 

0 

MF26 

Jump to alarm 5 (no. of subscripts 






not correct) 




60 

RP 

10003 

MF24 J 

Come from MG43 




61 

TP 

MC12 

ME17 / Level Meter neg; clear Level Meter 






and inside subset, variable and in- 






side funct. and go to 

alarm 4 

Semicolon 

62 

TP 

MC3 

SZ2 1 

Case; sneak XS3 code of comma in 


63 

MJ 

0 

MG24 J 

SZ2 and jump to making string-out 






for comma 



Negative 

64 

TP 

MC13 

A 

Put ”40 0 0"—>A 




65 

TJ 

SY11 

MF15 

Is next symbol not starting with 






decimal pt. or digit? 




66 

EJ 

SY12 

MF15 

Contains next symbol : 

a letter? 


67 

70 

TP 

EJ 

MC14 

ME20 

A 1 

MF77 J 

> Are we inside subscr. 

var.? 


71 

TV 

MC6 

MH4 

Set jump for neg. no. 




72 

MJ 

0 

MG4 

Jump to “before get next" 


73 

RA 

ME22 

MC14 

Adv. no. of subscr. ' 

f 

No more 
used? 


74 

MJ 

0 

MF77 

Jump to alarm 1A j 

1 


NEC 

75 

TV 

MC10 

MH4 

Restore jump to NUMBER 



76 

SP 

MC30 

25 I 

1 Blend neg. sign (lower case) in 


77 

SA 

SZ2 

36 

> XS3 code 




100 

LT 

0 

SZ2 1 

I 




101 

MJ 

0 

MJ 

Jump to NUMBER handling. > 

1 patch for 


i no 

XOL 

D T 
no 

C V 
tJ X 

CVi 

Oil 

r* __ur 1 o — j. f i .. .j. 

ouuic xiuiu in\j£. , yet nidi 

■ case tuat 






symbol 


> sentence 


103 

EJ 

MCI 

MF123 

Is first symbol A . 

? 

starts 






Yes, go to alarm. 

> 

' with A 


104 

MJ 

0 

MG4 

No, go on in routine 




105 

TP 

SZ2 

A 

Come from MGll or MG12 

1 patch for 


106 

EJ 

MC33 

MG110 

Is symbol "AND"? 


case 


107 

MJ 

0 

MH 

No, go on in rout. 


* "AND" in- 


110 

TP 

MC3 

SZ2 

Yes, sneak comma in SZ2 

1 stead of 


111 

MJ 

0 

MG13 

Go on in routine 

J 

c omma 



CA 

MG112 
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L4 

MH 



Alpha- 

0 

TP 

MC12 

A 

Put zero - >A 

Numeric 

1 

TJ 

ME 16 

MB 10 

Is word ind. > zero? When yes, 
warning alarm 1 


2 

TP 

MC14 

ME 16 

Put 1 in word index 


3 

TP 

MC12 

A 

Clear A 


4 

EJ 

SZ12 

MJ 

Has symbol no letter? 


5 

EJ 

SZ7 

MB43 

With letter: is first character 
not a letter? 


6 

RJ 

MB21 

MB15 

Write SZ2-14—>SY2-14 and save SY2 
in ME 


7 

RJ 

TA 

TA1 

Is symbol at hand in Combination 
List? 


10 

MJ 

0 

MT 

No 

Tn Comb. 

11 

RJ 

MB33 

MB 30 

Yes, put CW and XS3 code in string- 

List 

12 

RJ 

MB24 

MB22 

out 

Write SY2-14 back in its place 


13 

TP 

MC22 

Q 

Mask for call word symbol —> Q 


14 

QT 

TA4 

ME13 

Call word symbol—^ME13 and A 


15 

EJ 

MC17 

MH42 

Was symbol in Comb. List subscript? 
64 


16 

EJ 

MC20 

MH35 

Was symbol in Comb. List single val 
variable? 65 


17 

EJ 

MC21 

MH52 

Was symbol in Comb. List function? 
66 


20 

EJ 

MC22 

MH25 

Was symbol in Comb. List subscript¬ 
ed variable? 77 


21 

TP 

MC31 

Q 



22 

QT 

TA4 

ME13 

► Was symbol in Comb. List pseudo op? 


23 

EJ 

MC37 

MF42 J 

40 

Subvar 2 

24 

MJ 

0 

MF45 

Was symbol in Comb. List Library 
Routine? 


25 

26 

TP 

EJ 

MC5 

ME 

A 

MH30 - 

^ Is next symbol ( ? 


27 

MJ 

0 

MF50 

No, go to alarm 


30 

TP 

MCI 4 

ME20 

Put 1 in "inside subscr. var." 


31 

32 

TP 

QT 

MC23 

TA5 

Q 

ME23 ' 

^ Put no. of subscr. in storage 


33 

TP 

TA3 

ME24 

Put XS3 code of subscr. var. in 
storage 


34 

MJ 

0 

MG4 

Go to "bef. get next" 

Sinvalf 

35 

TP 

MC12 

A 

^ Are we inside subscr. var.? 

2 

36 

TJ 

ME20 

MH63 - 


37 

40 

TP 

EJ 

MC5 

ME 

A 

MF53 . 

| No: is next symbol ( ? 


41 

MJ 

0 

MG4 

No: go to M bef. get next” 

Sub¬ 

42 

TP 

MC5 

A 1 

^ Is next symbol ( ? 

script 2 

43 

EJ 

ME 

MF56 j 


44 

45 

TP 

TJ 

MC12 

ME20 

A 1 

MH50 J 

^ Are we inside subscr. var.? 


46 

TJ 

ME21 

MF61 

No: are we inside funct.? 


47 

MJ 

0 

MG4 

No: go to get next symbol 
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Sub- 50 RA 

script 2A 51 MJ 


ME 22 
0 


MC14 

MG4 


Adv. counter of subscr. by 1 
Go to "before get next" 


Func¬ 
tion 2 


Not in 
List 


Sinvalf 

1 


52 

TP 

MC12 

A 

53 

EJ 

ME20 

MH56 

54 

RA 

ME22 

MC14 

55 

MJ 

0 

MF64 

56 

TP 

MC5 

A 

57 

EJ 

ME 

MH61 

60 

MJ 

0 

MG4 

61 

TP 

MCI 4 

ME21 

62 

MJ 

0 

MF12 

63 

RA 

ME22 

MC14 

64 

MJ 

0 

MF37 


CA 

MH65 



IA 

MI 


0 

TP 

MC5 

A 

1 

EJ 

ME 

MF34 

2 

TP 

MC12 

A 

3 

EJ 

SZ10 

MI23 

4 

TJ 

ME20 

MI21 

5 

TJ 

ME21 

MF115 

6 

RJ 

RH 

RH1 

7 

RJ 

TK 

TKl 

10 

AT 

MC17 

ME13 

11 

RJ 

MB37 

MB34 

12 

TP 

MC27 

TF 

13 

TP 

SZ2 

TF1 

14 

TP 

ME 13 

TF2 

15 

TP 

MC12 

TF3 

16 

RJ 

TE 

TE1 

17 

RJ 

MB24 

MB22 

20 

MJ 

0 

MG4 

21 

RA 

ME22 

MC14 

22 

MJ 

0 

MI 6 

23 

EJ 

ME 20 

MI26 

24 

RA 

ME22 

MC14 

25 

MJ 

0 

MF117 

26 

RJ 

RH 

RHl 

27 

RJ 

TK 

TKl 

30 

AT 

MC20 

ME13 

31 

MJ 

0 

Mill 


CA 

MI 32 



} 

} 

} 

} 


Are we not inside subscr. var.? 

We are inside: adv. counter of 
subscr. by 1 
Go to alarm 20 

We are not inside: is next symbol 
( ? 

Go to "before get next" 

Set "inside funct" to 1 
Go to warning alarm 2 
Adv. counter of subscr. 

Go to alarm 11 or 14 


Is next symbol ( ? yes: go to 
alarm 10 

No: is first letter not I,J,K,L,M? 

First letter I,J,K t L,M: Are we 
inside subscr. var.? 

Not inside sub. var.:are we inside 
function? Yes, go to alarm 17 
No, check format 
Get CW no. for 64. 65, 66 type 
Add 64 to it and store formed CW 
in ME13 

Fill string-out, etc. 

0 3 0 

Add new XS3 code 

file to CW 

Combination zero 

List 

Write SY2-14 back in its place 
Go to "before get next” 

Adv. counter for subscripts 

Go to set subscr. in string-out and 

Comb. List 

Are we not inside subscr. var.? 

We are inside: adv. counter for 
subscr. 

Jump to alarm 
Check format 

Get CW No. for 64, 65, 66 

Add 65— and store formed CW in 

ME13 

Go to set single val. funct. in 
String-out and Comb. List 
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IA MJ 

Number 0 TP MC5 A \ 

1 EJ SY2 MF67 / 

2 TP MC12 A \ 

3 EJ ME17 MF73J 

4 RJ MB21 MB15 

5 TP MC12 A J 

6 EJ ME20 MJ23 i 

7 RA ME22 MC14 

10 MJ 0 MJ12 

11 0 0 0 

12 RJ RD RDl 

13 TP SZ2 RS4 \ 

14 RJ RS2 RS J 

15 TP TS3 A \ 

16 RJ GW GWl / 

17 TP Q ME13 \ 

20 RJ MB37 MB34 J 

21 RJ MB24 MB22 

22 MJ 0 MG4 v 

Stated 23 TP MC16 ME13 1 

24 MJ 0 MJ20 f 

CA MJ25 J 


Ts next symbol ( ? Yes, go to 
alarm 21 

Is level = 0? Yes, go to alarm 22 

No: store SZ2-14 —»SY2-14 WORK- 
WORK^ 

Are we not inside subscr. var.? 

We are inside sub. var.: add 1 to 
counter of subscripts 
Jump to over-next instr. 

Free 

Check format of fixed point con¬ 
stant 

Convert XS3 decimal no. to fixed 
pt. octal no. 

Assign constant CW 

Put CW and XS3 code in string-out 
and adv. 

Write SY2-14 back 
Go to "before get next" 

Assign 75- CW for funct. subscr. 
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IA 

MK 


Bef.Go 

0 

RA 

ME17 

MC14 

To End 

1 

TP 

MC32 

ME13 } 

fin Tn 

2 

TP 

SY2 

SZ2 > 

10 

F nH 

3 

RJ 

MB 37 

MB34 J 


4 

TP 

MCI 2 

A \ 


5 

TJ 

ME17 

MF121 J 


6 

RS 

EW3 

MC40 A 


7 

AT 

MC14 

A 


10 

TV 

A 

WL 1 


11 

RJ 

WT 

WTl f 


12 

MJ 

0 

MG 



CA 

MK13 

J 



IA 

ML 


Bef. 

0 

RJ 

MB24 

MB22 

Extraj 

1 

TP 

MC12 

ME15 

Extra 

2 

RJ 

SY 

SYl 


3 

TP 

SZ2 

A \ 


4 

EJ 

MC5 

MLll J 


5 

EJ 

MC4 

ML13 


6 

TP 

SY2 

A \ 


7 

EJ 

MCI 

MK J 


10 

MJ 

0 

ML2 

NOCH 

11 

RA 

ME15 

MC14 


12 

MJ 

0 

ML2 


13 

TP 

MC14 

A \ 

ME HR 

14 

TJ 

ME15 

ML20 J 


15 

mn 

ir 

pirn 

O 1£ 

A 1 


16 

EJ 

MCI 

MK1 J 


17 

MJ 

0 

MG4 

Most 

20 

RS 

ME15 

MC14 


21 

MJ 

0 

ML2 



CA 

ML22 



Adv. Level Meter \ 

Write A . in string-out 

Is Level Meter = 0? 

No, go to alarm 4 

> END 

Send string-out to tape 
Exit 

) 

Restore SY2-14 

Put zero in "extra Level Meter" 

Get next symbol 

Is symbol at hand ( ? 

Is symbol at hand ) ? 

Is next symbol A . ? 

Adv. extra Level Meter 

Is extra Level Meter > 1 ? 

Is next symbol A . ? 

Go to "bef. get next" 

Reduce extra Level Meter by 1 
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Subroutines 


0 

IA 

TV 

MB 

ML16 

MG4 1 

Put "JUMP to EXIT” in place "bef. 

1 

MJ 

0 

l 

MG10 J 

> get next" 

Back to routine 

2 

TP 

30000 

EW2 

CW 

3 

TP 

30000 

ME 14 

XS3 symbol 

4 

RJ 

EW 

EWl 

Place CW and XS3 code in string-out 

5 

TP 

ME14 

EW2 

> and adv. addresses concerned 

6 

RJ 

EW 

EWl 


7 

MJ 

0 

30000_> 


10 

RJ 

MB54 

MF 

Warning 1 

11 

TU 

MC25 

MB2 

12 

TU 

MG30 

MB3 

Go to print warning alarm, and put 

13 

RJ 

MB7 

MB2 

r string-out for comma in list and go 

back to routine. 

14 

MJ 

0 

MH2 J 


15 

RP 

30013 

MB17 ^ 


16 

TP 

SY2 

ME 

Write "get next symbol" SZ2-14 

17 

RP 

30013 

MB21 

—>SY2-14 and save SY2-14 in 
> MEO-12 

20 

TP 

SZ2 

SY2 


21 

MJ 

0 

30000 j 


22 

RP 

30013 

MB 24 

1 

23 

TP 

ME 

SY2 

> Write SY2-14 back 

24 

MJ 

0 

30000 

) 

25 

TP 

MC5 

A 


26 

ST 

SY2 

A 1 

1 Is next symbol ( ? when no, go to 

27 

ZJ 

MG4 

ML1 > 

\ get next symbol. When yes, come 

back to RJ 

30 

TO 

MC10 

MB2 > 

i 

31 

TO 

MCll 

MB3 

J Place CW and XS3 code in string-out 

32 

RJ 

MB7 

MB2 

? when found in Comb. List 

33 

MJ 

0 

30000 " 

) 

34 

TO 

MC6 

MB2 ' 

\ Place CW and XS3 code in string-out 

35 

TO 

MC7 

MB3 

l when CW placed in ME13 

36 

RJ 

MB7 

MB2 

f 

37 

MJ 

0 

30000 : 

J 

40 

0 

0 

0 

\ 

41 

0 

0 

0 

f Free 

42 

0 

0 

0 

J 

43 

TP 

MC5 

A ; 

\ 

44 

EJ 

SY2 

MF105 

1 Alpha-numeric symbol with first 

45 

MJ 

0 

MF31 

> char, digit (SY not yet moved, OK) 

/ 
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Error count 


46 

RJ 

UZ 

47 

TP 

YZl 

50 

TP 

WLl 

51 

RJ 

UP2 

52 

TP 

30000 

53 

RJ 

UP2 

54 

RJ 

MB 54 

55 

MJ 

0 

56 

TP 

YZ 

57 

MJ 

0 


CA 

MB60 


DZl 

DP3 

YZ4 

UP 

UP3 > Error print 

UP f 

MB 55 

MG4 

UP3 

MB50 


> heading printed 

V text printed 

Exit for RJ used 
Normal exit 

Entry for warnings 
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Alarm Entries and Exits 



IA 

MF 

N 


0 

TP 

SZ2 

YY10 | 

1 

1 

2 

TP 

TU 

SZ3 

YY 

YYll 

MB 52 

> Warning alarm 

3 

MJ 

0 

MB 56 > 


4 

0 

0 

0 > 


5 

0 

0 

0 


6 

0 

0 

0 

> Free 

7 

0 

0 

0 

10 

0 

0 

0 


11 

0 

0 

0 < 


12 

TP 

SZ2 

YB6 | 


13 

TO 

YB 

MB 52 

f Warning alarm : 

14 

MJ 

0 

MB 56 J 

1 

15 

TP 

SZ2 

YC4 ) 


16 

TU 

YC 

MB52 

> Alarm 1 

17 

MJ 

0 

MB 46 J 


20 

TP 

SZ2 

YE 5 x 


21 

TP 

SY2 

YE 7 1 

i> Alarm 3 

22 

TO 

YE 

MB52 1 

23 

MJ 

0 

MB46 -J 

1 

24 

TO 

YF 

MB52 1 

j> Alarm 4 

25 

MJ 

0 

MB46 J 

26 

TP 

ME 24 

YG6 ) 


27 

TO 

YG 

MB 52 | 

} Alarm 5 

30 

MJ 

0 

MB46 J 

1 

31 

TP 

SZ2 

YH6 1 

1 

32 

TU 

YH 

MB 52 

? Alarm 6 

33 

MJ 

0 

MB46 , 

I 

34 

35 

TP 

TO 

SZ2 

YI 

YI2 ] 
MB52 

1 Alarm 10 

36 

MJ 

0 

MF113 , 

I 

37 

TP 

SZ2 

YJ6 ] 


40 

TO 

YJ 

MB52 

> Alarm 11 

41 

MJ 

0 

MB46 J 

1 

42 

TP 

SZ2 

YK6 1 

1 

43 

TO 

YK 

MB 52 

? Alarm 12 

44 

MJ 

0 

MF111 J 

I 

45 

TP 

SZ2 

YM6 ] 

I 

46 

TO 

YM 

MB52 

> Alarm 14 = 12A 

47 

MJ 

0 

MF111 

I 

50 

TP 

SZ2 

YL10 


51 

TO 

YL 

MB52 

* Alarm 13 

52 

MJ 

0 

MB46 J 


53 

TP 

SZ2 

YN6 | 


54 

TU 

YN 

MB52 

|> Alarm 15 

55 

MJ 

0 

MF107 J 

I 

56 

TP 

SZ2 

Y04 

1 

57 

TU 

YO 

MB 52 1 

L Alarm 16 

60 

MJ 

0 

MF107 j 

I 
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61 

TP 

SZ2 

YP4 ''I 

62 

TU 

YP 

MB52 • 

63 

MJ 

0 

MB46J 

64 

TP 

SZ2 

YQ5 >, 

65 

TU 

YO 

MB52 V 

66 

MJ 

o' 

MB46 J 

67 

TP 

SZ2 

YR4 ^ 

70 

TP 

SZ3 

YR5 1 

71 

TU 

YR 

MB52 

72 

MJ 

0 

MF107 j 

73 

TP 

SZ2 

YS4 n 

74 

TP 

SZ3 

YS5 l 

75 

TU 

YS 

MB52 [ 

76 

MJ 

0 

MB46 J 

77 

TP 

SZ2 

YT6 v 

100 

TP 

SY2 

YT7 1 

101 

TU 

YT 

MB52 f 

102 

MJ 

0 

MB46 J 

103 

RJ 

MB 54 

MF20 >> 

104 

MJ 

0 

ML1 f 

105 

TP 

SZ2 

YH6 \ 

106 

TU 

YH 

MB52 1 

107 

RJ 

MB54 

MB46 | 

110 

MJ 

0 

MLl ' 

111 

RJ 

MB54 

MB46 \ 

112 

MJ 

0 

MB25 J 

113 

RJ 

MB 54 

MB46 ) 

114 

MJ 

0 

ML \ 

115 

RJ 

MB 54 

MF61 \ 

116 

MJ 

0 

MI17 J 

117 

RJ 

MB 54 

MF37 \ 

120 

MJ 

0 

MI17 J 

121 

RJ 

MB 54 

MF24 \ 

122 

MJ 

0 

MG / 

123 

TU 

YD 

MB52 ^ 

124 

RJ 

MB 54 

MB46 V 

125 

MJ 

0 

MG 


CA 

MF126 

J 


Alarm 17 

Alarm 20 

Alarm 21 

Alarm 22 

Alarm 23 = 1A 

Alarm old 2 = 3A 

Alarm 6A 

Alarm 17 
Alarm 11 

Alarm 2 (first symbol A .) 
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Warning Alarm 1 



IA 

YY 



0 

0 

YY1 

0 


1 

40 

YY2 

11 


2 

26 

51474 

72401 

Comma assumed preceding symbol[ 

3 

24 

65656 

74730 


4 

27 

01525 

43026 


5 

30 

27345 

03201 


6 

77 

77777 

77777 


7 

77 

77777 

77777 


10 

0 

0 

0 

SZ2 

11 

0 

0 

0 

SZ3 

12 

01 

22777 

77777 



CA 

YY13 







Warning 

Alarm 2 


IA 

YB 



0 

0 

YB1 

0 


1 

40 

YB2 

16 

Typed value of function[ ] may 

2 

66 

73523 

02701 

correspond to stated arguments. 

3 

70 

24466 

73001 


4 

51 

31013 

16750 


5 

26 

66345 

15001 


6 

0 

0 

0 

SZ2 

7 

01 

47247 

30150 


10 

51 

66010 

10101 


11 

01 

01010 

10101 


12 

01 

01010 

10126 


13 

51 

54543 

06552 


14 

51 

50270 

16651 


15 

01 

65662 

46630 


16 

27 

01245 

43267 


17 

47 

30506 

66522 



CA 

YB20 




525 



Alarm 1 



IA 

YC 



0 

0 

YC1 

0 


1 

X 

40 

YC2 

10 

Symbol l j illegal 

2 

65 

73472 

55146 

in type sentence. 

3 

01 

77777 

77777 


4 

0 

0 

0 

SZ2 

5 

01 

34464 

63032 


6 

24 

46013 

45001 


7 

66 

73523 

00165 


10 

30 

50663 

05026 


11 

30 

22777 

77777 



CA 

YC12 




0 

IA 

0 

YD 

YD1 

0 

Alarm 2 

1 

40 

YD2 

13 


2 

31 

34546 

56601 

First symbol space point. 

3 

65 

73472 

55146 

Sentence not further checked 

4 

01 

65522 

42630 


5 

01 

52513 

45066 


6 

22 

01653 

05066 


7 

30 

50263 

00150 


10 

51 

66013 

16754 


11 

66 

33305 

40101 


12 

01 

01010 

10101 


13 

01 

01010 

12633 


14 

30 

26453 

02722 



CA 

YD15 
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Alarm 3 



IA 

YE 



0 

0 

YE 1 

0 


1 

40 

YE2 

15 

Adjacent symbols £ jQ ] 

2 

24 

27442 

42630 

3 

50 

66016 

57347 

meaningless in type 

4 

25 

51466 

50177 

sentence. 

5 

0 

0 

0 

SZ2 

6 

01 

77777 

77777 


7 

0 

0 

0 

SY2 

10 

01 

47302 

45034 


11 

50 

32463 

06565 


12 

01 

34500 

16673 


13 

52 

30010 

10101 


14 

01 

01010 

L0101 


15 

01 

01016 

53050 


16 

66 

30502 

63022 



CA 

YE 17 


Alarm 4 


IA 

YF 



0 

0 

YFl 

0 


1 

40 

YF2 

6 


2 

52 

24543 

05066 

Parentheses not correctly placed 

3 

33 

30653 

06501 


4 

50 

51660 

12651 


5 

54 

54302 

66646 


6 

73 

01524 

62426 


7 

30 

27227 

77777 



CA 

YF10 




527 



Alarm 5 



IA 

YG 



0 

0 

YGl 

0 


1 

40 

YG2 

15 

Subscripted variable[ ] has 

2 

65 

67256 

52654 

incorrect number of subscripts 

3 

34 

52663 

02701 

4 

70 

24543 

42425 


5 

46 

30017 

77777 


6 

0 

0 

0 

ME 24 

7 

01 

33246 

50134 


10 

50 

26515 

45430 


11 

26 

66015 

06747 


12 

25 

30540 

10101 


13 

01 

01010 

10101 


14 

01 

01010 

15131 


15 

01 

65672 

56526 


16 

54 

34526 

66522 



CA 

YG17 


Alarm 6 


IA 

YH 



0 

0 

YH1 

0 


1 

40 

YH2 

14 


2 

24 

46523 

32450 

Alpha-numeric symbol^ ]has 

3 

67 

47305 

43426 

digit as first character. 

4 

01 

65734 

72551 


5 

46 

01777 

77777 


6 

0 

0 

0 

SZ2 

7 

01 

33246 

50127 


10 

34 

32346 

60124 


11 

65 

01313 

45465 


12 

66 

01010 

10101 


13 

01 

01010 

10101 


14 

01 

01263 

32454 


15 

24 

26663 

05422 



CA 

YH16 
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Alarm 10 


IA YI 

0 0 YI1 0 

1 40 YI2 23 

2 0 0 0 

3 01 24525 23024 

4 54 65012 46501 

5 24 01316 75026 

6 66 34515 00151 

7 54 01656 72565 

10 26 54345 26630 

11 27 01010 10101 

12 01 01010 10101 

13 01 01010 10101 

14 01 70245 43424 

15 25 46302 10125 

16 67 66013 46501 

17 50 51660 15254 

20 30 70345 16765 

21 46 73014 73050 

22 66 34515 03027 

23 01 34500 15254 

24 51 25463 04722 

CA YI25 

Alarm 11 = Alarm 14 

IA YJ 

0 0 YJ1 0 

1 40 YJ2 11 

2 31 46512 46634 Floating point variable [ ] 

3 50 32015 25134 used as subscript. 

4 50 66017 02454 

5 34 24254 63001 

6 0 0 0 SZ2 

7 01 67653 02701 

10 24 65016 56725 

11 65 26543 45266 

12 22 77777 77777 

CA YJ13 


SZ2 

[ ~] Appears as function or 

subscripted variable, but is 

not previously mentioned in problem. 
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Alarm 12 


IA YK 

0 0 YK1 0 

1 40 YK2 14 Pseudo operation symbol[ ] 

2 52 65306 72751 illegal in type sentence. 

3 01 51523 05424 

4 66 34515 00165 

5 73 47255 14601 

6 0 0 0 SZ2 

7 01 34464 63022 

10 24 46013 45001 

11 66 73523 00101 

12 01 01010 10101 

13 01 01010 10101 

14 01 01016 53050 

15 66 30502 63022 

CA YK16 


Alarm 13 

IA YL 

0 0 YL1 0 

1 40 YL2 14 

2 65 67256 52654 Subscripts of subscripted 

3 34 52666 50151 variable^ jare missing. 

4 31 01656 72565 

5 26 54345 26630 

6 27 01702 45434 

7 24 25463 00177 

10 0 0 0 SZ2 

11 01 24543 00101 

12 01 01010 10101 

13 01 01010 10101 

14 01 01010 14734 

15 65 65345 03222 

CA YL16 
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Alarm 14 = 12A 



IA 

YM 


0 

0 

YM1 

0 

1 

40 

YM2 

14 

2 

46 

34255 

42454 

3 

73 

01545 

16766 

4 

34 

50300 

16573 

5 

47 

25514 

60177 

6 

0 

0 

0 

7 

01 

34464 

63032 

10 

24 

46013 

45001 

11 

66 

73523 

00101 

12 

01 

01010 

10101 

13 

01 

01010 

10101 

14 

01 

01016 

53050 

15 

66 

30502 

63022 


CA 

YM16 



Library Routine symbol [ 
illegal in type sentence. 

SZ2 


Alarm 15 

IA YN 

0 0 YNl 0 

1 40 YN2 20 

2 31 46512 46634 Floating point variableC 3 

used as function symbol 

3 50 32015 25134 or as subscripted variable. 

4 50 66017 02454 

5 34 24254 63001 

6 0 0 0 SZ2 

7 01 67653 02701 

10 24 65013 16750 

11 26 66345 15001 

12 01 01010 10101 

13 01 01010 10101 

14 65 73472 55146 

15 01 51540 12465 

16 01 65672 56526 

17 54 34526 63027 

20 01 70246 43424 

21 25 46302 27777 

CA YN22 
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Alarm 16 



IA 

YO 


0 

0 

YOl 

0 

1 

40 

Y02 

16 

2 

65 

67256 

52654 

3 

34 

52660 

17777 

4 

0 

0 

0 

5 

01 

24525 

23024 

6 

54 

65012 

46501 

7 

31 

67502 

66634 

10 

51 

50015 

15401 

11 

01 

01010 

10101 

12 

01 

01010 

10101 

13 

01 

01010 

10101 

14 

65 

67256 

52654 

15 

34 

52663 

02701 

16 

70 

24543 

42425 

17 

46 

30227 

77777 


CA 

Y020 



SubscriptC ] appears as 
function or subscripted 
variable. 

SZ2 
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Alarm 17 



IA 

YP 


0 

0 

YP1 

0 

1 

40 

YP2 

11 

2 

65 

67256 

52654 

3 

34 

52660 

17777 

4 

0 

0 

0 

5 

01 

67653 

02701 

6 

24 

65012 

45432 

7 

67 

47305 

06601 

10 

51 

31012 

40131 

11 

67 

50266 

6345J 

12 

50 

22777 

77777 


CA 

YP13 




IA 

YQ 


0 

0 

YQ1 

0 

1 

40 

YQ2 

10 

2 

31 

67502 

66634 

3 

51 

50016 

57347 

4 

25 

51460 

17777 

5 

0 

0 

0 

6 

01 

24525 

23024 

7 

54 

65012 

46501 

10 

65 

67256 

52654 

11 

34 

52662 

27777 


CA 

YQ12 



SubscriptQ ] used as 
argument of a function. 

SZ2 

Alarm 20 

Function symbol Q J 
appears as subscript. 

SZ2 
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Alarm 21 



IA 

YR 


0 

0 

YR1 

0 

1 

40 

YR2 

17 

2 

26 

51506 

56624 

3 

50 

66017 

77777 

4 

0 

0 

0 

5 

0 

0 

0 

6 

01 

24525 

23024 

7 

54 

65012 

46501 

10 

31 

67502 

66634 

11 

51 

50015 

15401 

12 

01 

01010 

10101 

13 

01 

01010 

10101 

14 

01 

01010 

10101 

15 

01 

01016 

56725 

16 

65 

26543 

45266 

17 

30 

27017 

02454 

20 

34 

24254 

63022 


CA 

YR21 



Constant q ] appears as 
function or subscripted variable 


SZ2 

SZ3 


Alarm 22 



IA 

YS 


0 

0 

YSl 

0 

1 

40 

YS2 

15 

2 

26 

51506 

56624 

3 

50 

66017 

77777 

4 

0 

0 

0 

5 

0 

0 

0 

6 

01 

24525 

23024 

7 

54 

65012 

46501 

10 

70 

24543 

42425 

11 

46 

30016 

65101 

12 

25 

30010 

10101 

13 

01 

01010 

10101 

14 

01 

01010 

10101 

15 

01 

01010 

10101 

16 

66 

73523 

02722 


CA 

YS17 



Constant[ ^ appears as 
variable to be typed 
SZ2 
SZ3 
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Alarm 23 = 1A 


0 

IA 

0 

YT 

YTl 

0 


1 

40 

YT2 

10 

Negative subscript ] illegal. 

2 

50 

30322 

46634 


3 

70 

30016 

56725 


4 

65 

26543 

45266 


5 

01 

77777 

77777 


6 

0 

0 

0 

SZ2 

7 

0 

0 

0 

SY2 

10 

01 

34464 

63032 


11 

24 

46227 

77777 


0 

CA 

IA 

0 

YTl 2 

Headings for Warnings and Alarms 

YZ 

YZ2 7 

1 

0 

YZ2 

5 


2 

65 

30506 

63050 


3 

26 

30010 

17777 


4 

0 

0 

0 

Sentence no. 

5 

01 

01011 

76673 

Sentence A A C lAAA 
(Type) A A 

6 

52 

30430 

10177 

Warning, A A 

7 

71 

24545 

03450 


10 

32 

21010 

17777 



CA 

YZll 
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j^cocococococococororoioiocoioioroH-'i--i-'i-'H--»-'H->--« 

OHO"tn^coioHOHaai^03roHo^atn»ucowHCHa'Ui»ucA5N)H 


Constants 


IA 

MC 



0 

1 

0 

u adv. and CW for ( 

01 

22777 

77777 

XS3 code of o 

23 

77777 

77777 

XS3 code of ; 

21 

77777 

77777 

XS3 code of , 

43 

77777 

77777 

XS3 code of ) 

17 

77777 

77777 

XS3 code of ( 

0 

0 

ME13 

SZ2 

MG75 1 
MG4 J 

^ For symbols with CW in MEl3 

0 

0 

TA4 

TA3 

MJ 1 

o 

^ For symbols found in Comb. List 

0 

0 

0 

Zero 

40 

0 

0 

Indicator 

0 

0 

1 

One 

0 

0 

2 

Two 

0 

0 

75000 

For Dummy CW 

0 

0 

64000 

For CW fixed point variable 

0 

0 

65000 

For CW single val. 

0 

0 

66000 

For CW function 

0 

0 

77000 

For CW and mask 

0 

0 

77777 

Mask 

0 

77777 

0 

Mask 

0 

MC26 

0 

Address of CW for comma 

0 

0 

40 

CW for comma 

0 

3 

0 

For adv. u 

n 

V/ 

O 

i~ 

r\ 

yj 

For auv. u ami CW last par. 

0 

0 

70000 

Mask for pseudo op 

0 

0 

120 

CW for A 

24 

50277 

77777 

’’and" 

02 

77777 

77777 

"—" XS3 lower case 

0 

77777 

77777 

"—" XS3 upper case 

0 

WL3 

WL3 

Constant for EW3 

0 

0 

40000 


0 

WL 

WL 


CA 

MC41 
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Temporaries: Type String-out 


ME 0-12 

13 

14 

15 

16 
17 
20 
21 
22 
23 

ME 24 


Storage for SY2-14 

Temp, storage for CW (call word) 

Temp, storage for new MB3 
Extra Level Meter 
Word index 
Level Meter 

Index "inside subscripted variable" 
Index "inside subscripted function" 
Counter for subscripts 
Stored value for number of subscripts 
Stored XS3 code of subscripted variable 
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List String-Out Routine 


The List String-Out Routine translates the pseudo code "List" sentences 
from the corrected Problem Tape on Uniservo 5 and edits and stores the in¬ 
formation in the format prescribed for input to the List Generation routine 
(see List Generation write-up). During the translation of the input sentence, 
extensive checks are made for strict adherence to the List sentence format 
specified in the Unicode manual, including the proper use of commas where 
required. When an error is detected, a statement describing the error con¬ 
dition is typed on the on-line Flexowriter. Errors are of two types; those 
which must be corrected before compilation can continue beyond the string-out 
(translation) phase, and those which give rise to a "warning" typeout on 
the Flexowriter to point out the inconsistency, but which do not preclude the 
successful compilation and execution of the Object Program. Errors of the 
latter kind include the word "warning" in the Flexowriter typeout. The texts 
of all error typeouts are included in the annotated coding. In general, the 
errors detected prior to the Title or Column Headings are of the first kind 
and those detected within the title or column headings are of the latter kind. 

The list which is produced as input to the List Generation routine is 
referred to as the List String-out and is written on magnetic tape when it is 
completed. During translation, this routine records the call word for each 
of the variables to be listed as well as the call word designating the Uni¬ 
servo on which the listing is to be made during the running of the Object 
Program. In addition to the above call words, the List String-out includes a 
section containing the headings for the listing and a count of the total 
number of words in the headings. The headings are stored in the list exactly 
as they are to be transferred to the listing tape. 

The texts of the headings are included just as they appear on the input 
tape; however, they are edited for position on the High Speed Printer sheets. 
The title is edited so that it is always centered on the page, regardless of 
the number of characters it includes. The column headings and/or the names of 
the variables are edited so that they are centered on the page, regardless 
of the number. In addition, within the four words (23 characters) allowed 
for each column heading or variable name, the characters are positioned with 
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respect to the decimal point for floating point quantities or the assumed 
point for fixed point quantities. The assumed point is to the right of fixed 
point numbers. 

Figure 1 shows the format of the heading list within the List String-out 
when all three sections are included, i.e., title, column headings and variable 
names. It also shows the position of the column headings and/or variable 
names within their assigned blockettes, depending on the number of such 

column heading and/or variable names. 

Figure 2 shows the positions of the XS3 characters within the title 
blockette and within the four word items for the column headings and variable 
names. 

If either the column headings, or title, or both are omitted from the 
input tape, the corresponding blockette(s) is omitted from the heading list 
in the List String-out, and the succeeding blockette(s) packed upward (see Fig. 
1). The leftmost character of the first word of the heading list is a Fast 
Feed 1 symbol. 
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BLOCKETTE (20 WORDS) BL0CKET1E (20 WORDS) BLOCKETTE (20 WORDS) 


r LZ 
LZ4 
LZ10 
LZ14 
LZ20 
LZ24 
LZ30 
LZ34 
LZ40 
LZ44 
LZ50 
LZ54 
LZ60 
LZ64 
LZ70 


4 WORDS 


TITLE 


1st Col. Hdg. 


2nd Col. Hdg. • 
3rd Col. Hdg. : 
4th Col. Hdg. 
5th Col. Hdg. 
1st Var. 

2nd Var. 

3rd Var. 

4th Var. 

5th Var. 


1st Col. Hdg. 
2nd Col. Hdg. 
3rd Col. Hdg. 
}• 4th Col. Hdg. 


1st Col. Hdg. 


2nd Col. Hdg. 1 


3rd Col. Hdg. 


}• 1st Col. Hdg. ^ lst 

COLUMN 

2nd Col. Hdg. 


HEADING 


lst Var. 
2nd Var. 
3rd Var. 
4th Var. 


lst Var. 
2nd Var. 
3rd Var. 


j- lst Var. 
I 2nd Var. 


) 


lst 

VARIABLE 

NAME 


Figure 1. Heading List Format 
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1st Word 


FORMAT OF EDITED TITLE BLOCKETTE 


20th Word 


117-109 107-97 95-85 83-73 71-61 59-49 47-37 35-25 23-13 11-1 2-12 14-24 26-36 38-48 50-60 62-72 74-84 86-96 98-108 110-119 


One blockette (120 XS3 characters) 


The numbers in the above diagram indicate positions of the XS3 characters of the title within the 
blockette, depending on the total number of characters. If the title has only one character, it appears to 
the left of center; if it has two characters, the first appears to the left of center, the other to the 
right; if it has three characters, the first two appear to the left of center and the third to the right of 
center; etc., only 119 of the 120 characters are allowed for the title. 


FORMAT OF EDITED COLUMN HEADINGS OR VARIABLE NAMES 
Floating Point Quantities (position about decimal point) 

1st Word 2nd Word 3rd Word 4th Word 

—Decimal point of associated floating point numbers 
in listing 

Fixed Point Quantities (position about assumed point) 



Assumed point to right of associated fixed 
point numbers in listing 


The numbers in the above diagram indicate positions of the XS3 characters of the column headings or 
variable names, depending on the total number of characters in the column heading or variable name. 

Figure 2. Format of Edited Title Blockette, Edited Column Headings or 
Variable Names, Fixed Point Quantities 
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List String-out (Variable Phase) 


/St art V - 
/stringoutS 


Preset 

stringout 


/Get\ 
/next ' 
vsymbol 


SYMBOL— \yes Alarm #4 
open ) > 

jarenthesis? / I_ . 


Advance 

parenthesis 

level 


" SYMBOL = S 
close 

parenthesis?/ 


Alarm *6 


SYMBOL = 
comma or 
semi-colon? 


V" Strii 
\ oul 


V String-/ 
\ / 


No f SYMBOL No 
~^\ Tape? r~* 


Alarm #1 


Alarm #2 


Alarm #3 


SYMBOL = \Yes 
variable? ] 


Yes / SYMBOL - 
V constant? 


Yes f SYMBOL = 

I (space-period? 


/ SYMBOL — 

comma or semi 
V colon? > 



Decrease 
parenthesis 
level _ 

_ )! _ 

f Close 
(parenthesis on] 
V level zero?y 


/Get 

'next 

symbo] 


SYMBOL = 
"tape"? 


yes f "Tape" on ^ 

- *1 parenthesis 

V level zero?> 


Alarm *5 


Alarm #7 










No 



Check for legal 
variable sym. 



Number char¬ 
acters in 
symbol > 6j 

Yes 



Obtain non-subs 
variable 
call word 



SYMBOL 
fixed point 
variable?^ 


.Yes 


No 


■*< 
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Call word 
19 

stnngout 



Set floating pt, 
indicator & ad- 
vance var. count 




Store XS3 symbol 
for heading edit 


Store XS3 
symbol for head-, 
ing edit 





Set subscript 
parenthesis level 
zero 


Number of 
subscripts -1 
—> Index 

-> 

Zeroize count 
of subscripts 
processed 



\ 



.Yes/ SYMBOL = 
open 

parenthesis^ 

In7 



Get next 
symbol 




Symbol 

to 

Accumulator 



Alarm *11 



Get next\ 
symbol 



( 10 . 


SYMBOL = 
variable? 


ps 

© 


No 


SYMBOL 

POSSIBLY= 
constan t? 


1 Yes 
@ 


(w)* -Alarm *14 


No 


No 


SYMBOL — \ No 
close V—— 

parenthesis?/ 


symbol = VNo 

open - 

parenthesis?/ 


SYMBOL = \No 
space-period?/ 



SYMBOL =• 
comma or semi¬ 
colon? 


Yes 


Advance Subscript 
parenthesis level 

<- 

Alarm *13 

by 1 
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SYMBOL = \ No 

floating point 
variable? 


SYMBOL ^YeS/ 'Get next 
function?) *\ symbol 


Yes 


Alarm #16 


-K2) 




SYMBOL = 
parenthesis? 


Yes 


1 

No 

L _ 


Alarm #17 





Delete arguments' 
of function 
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Yes 

r 

Alarm #21 


Advance count of 
subscripts 
processed 


Store XS3 sym for 
heading edit 


Get next \_ 

f SYMBOL = 

symbol / 

Wcomma or semi 
V colon? ^ 


SYMBOL ~ \ No 
space-period?) 


SYMBOL-A yes /— 
close j->09 j! 

parenthesis?/ v ~' 




Alarm #12 


String 
v out 
\exit/ 


Close parenthesis 
on level zero? 



Store XS3 symbol 
for heading edit 
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Subroutine to Process Arguments of Function (Referenced by Alarms #17A & #26) 



Set function 
parenthesis level 
to zero 


Function Sym¬ 
bol to temp, 
storage 



SYMBOL ==\v es j 

close ) 
parenthesis?/ 


Decrease 
function 
parenthesis 
level_ 


No 
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List Stringout (Tape Designation Phase) 
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/Check for legal\ 
\24j —>( variable symbol) - 



Number 
characters in 
symbol> 6? 

Yes 



Variable in \Yes_ 

combination list? 



SYMBOL —\ No 


fixed point 
variable?. 


f° 

(25) 




f Yes 


Call 

word to 


Accumulator 



. . SYMBOL = . 

Alarm #36 -( library routine?) 


No 


Symbol= 
pseudo operation? 



Yes 



Yes 



\Stringout / 

_ 1 _ 

Alarm #34 


Alarm #35 
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List Stringout (Tape Designation Phase, Cont.) 
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List Stringout (Heading Phase) 



Advance assembly 
block address to 
address for next 
variable name 














ccc 
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List String-out (Heading Phase, Cont.) 



Preset column 

/Advance column 

Next character to 

heading section 

J —*\ heading count 

accumulator 


Store XS3 character 
for heading edit 


Get next 
character 



CHARACTER 
— space? 




CHARACTER 
=. open 
arentnesis? 



CHARACTER 
close 
arenthesis?. 



Yes 

Yes 

!£_ J 

L .- 5 

<■ -, ^ 



Yes 


f4 8’ 



Advance 
parenthesis 
level by 1 
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End List String-out 
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List Subroutine to Send Call Word to String-out 



List Subroutine to Advance and Check Variable or Column Heading Count 








List Subroutine to Advance and Check Variable or Column Heading Count, Cont. 
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List Subroutine to Store XS3 Character for Heading Edit 



Warning 
#53 ‘ 



Current word in \Yes 
assembly block 
full? (check index 




23io > number of 
characters in 
variable name? 

No 


Yes 


Advance 


Decrease 


Shift character 

character 

-^59^ 

shift count 


to position 

count by 1 


by six 


in accumulator 



Decrease 

index 


Add character to 
current word in 
assembly block 


Reset entrance 
to by-pass 
this routine 


^0 


Advance current 


Reset 

shift 


Reset index 

assembly block 


count 

to 36 iq 


to five 

address 
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List Subroutine to Store XS3 Character for Heading Edit, Cont. 





List Subroutine to Store XS3 Symbol for Heading Edit 



Number of char¬ 
acters in symbol 
to index counter 



Store XS3 char¬ 
acter for heading 
edit_ 


XS3 symbol 
to temporary 


—> 




XS3 character to 
"v" address of 
"Q" registe r_ 


No 


< A11 characters in 
symbol transferred to 
assembly block? 















List Subroutine to Edit Title 


/Sub- \ 
/routines 
entrance 


Preset heading 
list address 
(box 3) to middle 
address of title 
section 


Divide number of 
characters in title 
by l2io=^number °f 
full words in 1/2 
title to "Q" register 


Is there a 
partial word in 
U/2 of title? 


Advance count of 
words in 1/2 title 
by one 


Decrease 

address in 

heading 

list (box 3) 

by numbe 

r words in 

1/2 title to get f 

address 

for first 

word of 

title in 

heading list 


Multiply total number of 
words in 1/2 title by two 
=^ ,, number of words of title 
when centered in title 
section of heading list. 


Number of words 
less one to index 
counter (Box 4) 


Number char- 
acters in title 

_ = i‘W j 

t; 


Transfer 119^ char¬ 
acter title from assem¬ 
bly block to heading 
list without further 
editing 


Sub- 
out ine 
exit / 
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List Subroutine to Edit Title, Cont. 





Transfer title from 
assembly block to head¬ 
ing list without further[ 
editing (i.e., already 
centered) 


Preset address 
first title word 
in heading list 
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List Subroutine to Edit Title, Cont. 


Box 1 


Box 2 


0 - 


Current title word 


Add next word from assembly 

Box 3 

Advance assembly block 

for editing from 


block to accumulator & 


Edited title word 


address in box 1 & box 

assembly block to 

- > 

shift left preset amount 


to heading list 

-> 

2 by one and heading 

accumulator & shift 


to position edited word in 




list address in box 3 

left 44g 


left half of accumulator 


by one 


Box 4 



Number of characters 
from variable indi¬ 
cator word to input 
line and accumulator 
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List Subroutine to Edit Variable or Column Heading, Cont. 



Number of char- \ No 
acters in variable 
= 23io? 



Is this floating 
point variable? 



No 


© 


13iq> number 
of characters?/ 


Yes 



Preset index counter 

No 

(box 4) to three to 


provide for transfer¬ 
ring four words to 
heading list 




-*© 




Preset index counter 
(box 4) to one to pro¬ 
vide for transferring 
two words to heading 
list 


Advance heading list 
address in box 3 by 
one 





10 > number of 
characters? 


Yes 


© 


No 



> number of 
characters? 


Yes 


© 


Number of characters 


Divide preceding 1 

in variable name (or 


sum by two 

& send 

column heading) plus 

-> 

quotient to ac- 

three to accumulator 


cumulator 


J 

f 



Preset index counter 

No 

(box 4) to three to 

> 

provide for transfer¬ 


ring four words to 


heading list 


- -® 


©— 


Preset index counter (box 4) 




Advance heading list 

to two to provide for trans- 

ferring three words to head¬ 

- > 

address in box 3 by 

ing list 


one 
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6ist Subroutine to Edit Variable or Column Heading, Cont. 


Preset index counter 
(box 4) to one to pro¬ 
vide for transferring 
two words to heading 
list 


Advance heading 


Number of char- 

list address in 

acters to accumu¬ 

box 3 by two 


lator 


l5io > number \Yes 
of characters? ) 


Number of char¬ 
acters + one to 
accumulator 


Divide number of 
characters in vari¬ 
able name by two 


Quotient plus 
two to accumu¬ 
lator 


Divide contents of 
accumulator by six. 
Remainder is number 
of characters to shift 


f Number of 
characters to 
V shift = zero? 



Preset shift 
count in box 
2 


Seven > 
shift count? 


Zero to 
accumulator 


Advance address in box 
1 by one to address of 
first variable word in 
assembly block 


Multiply number of 
characters to shift 
by six to get shift 
count for editing 


Advance address in box 
2 by one to address of 
second variable word in 
assembly block 
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List Subroutine to Edit Variable or Column Heading, Cont. 


Box 1 


Box 2 


|Current variable word 
for editing from assem¬ 
bly block to accumulator — J 

& shift left 44q I I 


Add next variable word from 
assembly block to accumulator 
& shift left preset amount to 
position edited word in left 
half of accumulator 


Box 3 


81K- 


Box 4 



Edited variable 
word to 
heading list 


Advance assembly block 
address in box 1 & box 
2 by one and heading 
list address in box 3 
by one 


©— 


Preset address of 


Preset address 


Transfer variable words from 

first variable in 


for first vari- 


assembly block to heading 

assembly block in 


able word in 


list (i.e v already positioned 

Box 5 


heading list 


over decimal point) 


->(§>■ 


Sub¬ 
routine/ 
.exit 










